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NOT SUPPLIED BY DIGITAL, 

COPYRIGHT (C) 1977 BY DIGITAL EOITTPMENT CORPORATION 



DMCtl ITeI CRLAY MACm 3PifliM6) H-0 7 I2l39 PACE 3 

DZDM0,P1I 18-MAY-77 ll»2Q 



l.ld ABSTRACT, 

THIS PROGRAM ig DFSIGNED AS A MAJNTENSNCE AID FOR 

FIELD SERVICE PERSONEL, IT WILL VFPIFY THF PROPER OPERATION 

OF A COMPLETE COMMUNICATION LINK FRO" ONE PDP-11 

SYSTEM TO ANOTHER OR TO A COM^^U^aCATIO•'^ TfcsT CEWTER, 

THIS PROGRAM MUST BE USFD IN CONJUNCTION WITH Thf! INTERPROCESSOR 
TEST PROGRAM(OEITP) ON A PPP-1 1 SYSTFm WITH A DL-U INTERFACE. 

2.0 REQUIREMENTS, 

2.1 EQUIPMENT 

A, PDP-11 SYSTEM WITH 4K OF COPE, 

B, A DMCtl COMMUNICATION INTERFACE, 

2.2 STORAGE, 

4K OF CORF 

3.0 LOADING PROCEDURE 

THIS PROGRAM is IN ABSOLUTE FORMAT. 

THE ABS LOADER MUST BF USED TO LOAD THE PROGRAM, 

4,0 OPERATING PROCEDURES, 

A, TWO METHODS OF ENTERING PARAMETERS ARE PROVIDED 

1, LOAD ADDRESS 200 AND START TO ENTER PARAMS FROM CONSOLE TTY, PROCEED TO SECTION B , 

2, LOAD ADDRESS 200 AND SET SWITCH REGISTER BIT 15 BEFORE 
STARTING TO ENTER PARAMS FROM CONsOLE Sl^lTCHES, PROCEED TO SECTION C, 

»THE PROGRAM MAY BE RESTARTED AT LOC 204 (ONCE PARAMETERS HAVE ALREADY BEEN SELECTED) 

B, CONSOLE DIALOGUE PARAMETER INPUT (CURRENT VALUES FOR PARAMETERS ARE FOUND IN OVERLAY) 



1, THE PROGRAM WILL TYPEOUT THE nAmE 0^ THE VARIABLE OVERLAY, 

A, IF YOU WISH TO SETUP JUST THE INDICATED OVERLAY, TYPE A CARAGE RETURN 

B, IF YOU WISH TO SETUP A DNil, TYPE IN DN. 

C, IF YOU WISH TO SETUP A DMUBB, TYPE IN DMB, 

IF ON OR DMB WAS TYPED IN STEP 1 ABOVE THEN THE BUS ADDRESSi 

VECTOR ETC, REFERFD TO IN STEPS 2 THRU 7, PERTAIN TO THE DNU OR DMBB, 

2, THF PROGRAM WILL TYPE THE DEFAULT B^S ADDRESS OF THE INTERFACE UNDER TEST, 

A, TYPE A CAR, RETURN TO USE DEFAULT BUS ADDRESS 

B, TYPEIN ACTUAL BUS ADDRESS 

3, THE PROGRAM WILL TYPF OUT THE DEFAULT VECTOR ADDRESS 

A, TYPF A CAR, RETURN 10 USE DEFAULT ADDRESS 

B, TYPEIN ACTUAL VECTOR ADDRi^SS 

4, THE PROGRAM WILI TYPE OUT THE DEFAULT INTERFACE PRIORITY 
NOTEj 2P>0BppIO 4» 240KPRIO 5, 3'^Wsp,PI0 6, ETC, 

A. TYPE A CAR, RFTURN TO USE DEFAULT VALUE 



OHCil ITLP OVERLAY MAC^ll ^Hil^Ah) U-JliL-77 l2j3Q PAr;t 4 PAGE: fjC^fci 

0IDM0,P11 19-MAy-77 HJ2fi 



B, TYPEIN ACTUAL VALUE 

5, TMF. PROGRAM WILL TYPEOUT THE DEFAULT VALUF. OF PApAMftl 

ir REQUIRED BY THfi ISP.(SCE SECT, 1^^.*^ IN OVERLAY LISTING FOR PARAMETER DfcSCRIPTIOtO 
S, TYPE A CAP, RETURN TO USE DEFAULT VALUE 
B, TYPEIM ACTUAL VALUE 

6, THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM#2 
IF REQUIRED BY THE ISP, 

A, TYPE A CAP, RETURN TO USE DEFAULT VALUE 

B, ENTER ACTUAL VALUE 

7, THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM#3 
IF REQUIRED BY THE OVERLAY, 

A. TYPE A CAR, RETURN TO USE DEFAULT VALUE 

THE DN-11 WILL USE PARAM #3 AS THE « TO DIAL, 
IF USING A MODEM WITHOUT AUTOMATIC HANDSHAKING, 
THE NUMBER MUST TERMINATE WITH A 
"END-OF-NUMBER" CHARACTER (I), 

B, ENTER ACTUAL VALUE. 

8« THE PROGRAM WILL RETURN TO STRP Bl IF THIS SETUP 
WAS FOR DNll OR DM11B8. 

9, THE PROGRAM WILL REQUEST THAT SWITCH REGISTER BE SET, 
A, SETUP SWITCH REGISTER AS SPECIFIED IN STEP D, 
AND TYPE A CAP, RETURN, 

NOTFi IF ANY CF THE ABOVE ITEMS 2 THRU 7 WERE CHANGED BY ENTERING 
NEW VALUES, THE NEW VALUE SECQmES THE DEFAULT VALUE FOP SUBSEQUENT 
RESTARTS OF THE PROGRAM, 
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C, MANUAL PARAMETEp INPUT FROM SWITCH RF.GISTER 

1, m PROGpAM HALTS FOR ISP ( INTFRFACt SERVICE- ROUTINK) SPFC I FIC ATI ON 
SWR14«SFTUP DM-HB ISR 

SWRUsgETUP DN»ii ISR 
SWRa0P»0(^0^ = SfcTUp VARIABLE ISP 

2, THE FOLLOWING HALTS ARE REPEATED FOP EACH ISP SPECIFIED, 

SETUP SEQUENCE ISj DNll#tMtl-BB THEN VARIABLE OVERLAP, (EACH ENTRY SET SWICHES THFN HIT CONTINUE 

A, HALT FOR PUS ADDRESS OF INTFRFaCE 

B, HALT FOR VECTOR ADDRESS OF INTERFACE 

C, HALT FOR PRIORITY OF XNTEpKACE 

D, HALT FOR INTFRFACE PARAM fl (SEE SECT, 10,0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) 

E, HALT FOp INTERFACE PARAM #2 (DNU AND DMBB PARAf^ETEPS ARE DISCUSSED IN SECT, 10,0 OF THE MQN 

F, GO BACK TO STEP A IF THIS SETUP WAS FOR DN OR DMB, 

3, HALT FOP OPERATIONAL SWITCH SETTINGS, (SEE STEP D,} 
A, PRESS CONTINUE TO START TESTING 

BEFORE ATTEMPTING TO RUN THIS PROGRAM, THE OPERATOR MUST 

ACCERTAIN THE COMPLETE COMMUNICATION LOOP AND PROCEEDURES 

TO BE USED, INCLUDING THE TYPE OF MODFMS, THE TYPE OF 

INTERFACE BEING USED AT THE OTHER CPU AND THE MODES OF OPERATION, 

DATA AND PARAMETERS TO BE USED AT EACH CPU, 

THIS WILL REQUIRED VOcAL COMMUNICATION with THE OPERATOR 
AT THE OTHER CPU UNLESS ITS CONFIGURATION AND OPERATION 
ARE FIXED AS A TEST CENTER, 

AFTER DETERMINING THAT THE EQUIPMENTS ARE COMPATIBLE AND 
AGREEING ON THE MODE AND VARIABLE PARAMETERS TO BE USED, 
THE SYSTEM WHICH Is TO RECEIVE DATA FIRST SHOULD BE 
LOADED AND STARTED, IF THE MODEM BEING USED ON THIS SYSTEM 
HAS AN AUTOMATIC ANSWER FFATUREi IT SHOULD BE ENABLED, 

THE SYSTEM WHICH IS TO TRANSMIT FIWST SHOULD THEN BE LOADED 
AND STARTED AND THE CONNECTION ESTABLISHED EITHER MANUALLY 
OR AUTOMATICALLY (VIA DN-H), 
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D, OPERATlOhftL SWITCH SETTIN^^'S, 
SW15 = 1 *^AM ON FRPOP 
SW14S1 SINGLE PASS 

SW14 HAS NO EFFFC' IF 5WP4b0 
SWllrl INHIBIT ERPOP TYPEOUIS 
SW12»1 INHIBIT ALL TYPtOUTS EXCEPT EPPORS 

IF 5rtl2=0 AND 5W04rl END PASS IS TYPED 

AND TPANSMITTEO/FECEIVED DATA IS TYPED, 
SWllxl USE PFtVIOnSLY SPf-ClFlED DATA 
SW10B1 DATA SELECT (WITH SWe!9) 
SW09=1 DATA SELECT (wITH SWlP) 

(90b1 get DATA FROM OPEpATOP 

01sl TEST MESSAGE #1 ($A QUICK BROwN FOX) 

10«l TEST MESSAGE #2 ($B NUMERICS) 

11«l TEST MESSAGE #3 C$C COMTFST/OUiCK BROWN FOX/NUMERICS) 
SW08«1 TRANSMIT pECEIVED DATA (I^'TFRNAL LOOpBACK MODE) 
SW07«1 00 NOT TEST RECEIVED DATA 

SW06B1 MONITOR TRANSMITTED DATA OM CONSOLE TTY,» 

SW05SI MONITOR RECEIVED DATA ON CONSOLE TTY,» 

« IN MANY CASES, NOT ALL DATA WILL APPEAR ON THE CONSOLE 
TTY, THIS Is ESPECIALLY TRUE WHEN THE COMM INTERFACE Is 
RUNNING AT A FASTER BAUD THAN THE CONSOLE, BUT EVEN AT EQUAL 
OR SLOWER BAUDS, ALL CHARACTEPS MAY NOT APPEAR ON THE CONSOLE, 

5W04sl RETURN TO MONITOR FOP END "ASS 

WHEN SW04»0 PROGRAM LOOPS IN THE OVERLAY NEVER RETURNING TO THE MONITOR, 
SW03Bt INTERNAL LOOPBACK MODE 
SW02«l EXTERNAL LOOPBACK MODE 
SW01S1 ONE-WAY-IN MODE 
SW00S1 ONE-WAY-OUT MODE 
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THIS PROGRAM HAS BEEN MOniFTED 70 RUN 0*J A PHOCFSSOH WiTH OR WITHOUT 
A HARDWARF SWITCH REGISTER, WHEK' FIRST EXFCl'TtlD THE PROGRAM TEST? 
THE EXISTENCE OF A HARDWARE SWITCH REGISTER, IF NOT FOUND A 
SOFTWARE SWITCH REGISTER T.OCATION (SwPEGsLOC, 176 ) IS DEFAULTED TO, 
IF THIS IS THE CASE, UPON FXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE COiiSOLE TTY AND ANY CHANGES ARE REQUESTED 



(IE) SWRJ.-XXXXXX NEWS 



POSSIBLE RESPONSES ARE! 



1, <CR> IF NO CHANGES ARE TO BE MADE 

2, 6 DIGITS 0-7 TO REPRESENT TN OCTAL THE NEW SWITCH REGISTER 

VALUE jLAST DIGIT FOLLOWED BY <CP>, 

3, 'U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 

KEYING IN SWREG VALUE, 

BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING *G 
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH IS PROCESSFD IN KEY AREAS OF THE PROGRAM 
CODE CIE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS, 



IF OPERATOR SPECIFIED DATA WAS INnlCATED, THE PROGRAM WILL TYPE A 
REQUEST FOR THE DATA, DATA MAY BE ENTERED AS ASCII CHARACTERS OB OCTAL CODE, 
TYPE IN THE DATA TERMINATED WITH A CR, OCTAL CODE MAY BE ENTERED BY TYPING AN 
•(UP ARROW) FOLLOWED BY THE OCTAL CODE CIN THE RANGE 000 TO 377) 
SEPEPATED BY SPACES AND TERMINATED BY "CUP ARROW), 
I.E, ABCD* 000 123 377" EFG (CAR, RETURN) 

A TYPICAL SWITCH SETTING FOP HALF-.DUPLEXb003150 THIS SETTING USES 

INTERNAL LOOPBACK MODE, LOOPS IN OVERLAY, MONITORS TRANSMITTED AND RECEIVED 

DATA ON THE CONsOlE TTY, AND TESTS RECEIVED DATA USING TEST MESSAGE #3, 

A TYPICAL SWITCH SETTING FOR FULL-DUPLeXs003 1 44 THIS SETTING 
Is THE SAME AS ABOVE EXCEPT IT USES THE EXTERNAL LOOPBACK MODE, 

ALL STANDARD MESSaGES(TE5T MessaGfS 1-3) ARE PRECEDED BY 2 FILL CHARACTERS ( 1 77 ) , 
AND ARE FOLLOWED BY A CR(015), LFf 01 2) , RECEIVE TERMINATING CHAFACTER(001 ) , 
4 FILLS(177), AND A TRANS^^IT TERMINATING CHARACTER(000) , DUPING TRANSMISSION, 
WHEN A 000 CHARACTER IS SEEN THE TRANSMISSION IS STOPPED , DURI NG RECEPTION, 
WHEN A 001 CHARACTER IS RECEIVED, THF rB:CE1VEP IS SHUT OFF, 

IF THF MESSAGE WAS TNPUTED BY THE OPEPATEP, THE TERMINATING CHARACTERS ARE ADDED, 
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TFST Monts 

INTERMAL LOOPBACK MGDF 

1, THE OVEPLAY WAITS TO KECEIVE A MESSAGE ( TFRNi I N ATfcD By <{)vi\>) 

2, VEPEIES THF DATA AGAINST THE DATA SELfCTED BV SW09 AND SWl0(SW7afr)) 

3, TRANSMIT THE DATA SELECTED S^V;9 AfjD SW10 tSW8a0) OR 
TRANSMIT THE RECEIVED DATA (SV^8»l) 

4, HETITRNS TO MONITOR FOR "END PASS" (SW4=1) OR 
GO 10 STEP 1 , (5W4=0) 

EXTERNAL LOOPBACK MODE 

1, THE OVERLA'i SETS REQUEST TO SEND 

2, WAIT FOR CIjEAR TO SEND 

3, TRANSMITS THE SELECTEH DATA 

4, RESETS REQUEST TO SEND 

5, WAIT FOR MESSAGE TO BE RECEIVED 

6, VERIFIES THE DATA (SW07«0) 

7, RETURNS TO MONITOR FOP "END PASS", (SW04el) OR 
GO TO STEP l(SW04a0) 

ONE-WAY.IN MODE 

1„ THE OVFRLAif WAITS FOR MESSAGE TO BE RECEIVED, 

2. VERIFIES THE DATA ( 5Wk)7«0 ) 

3. RETURNS TO MONITOR FOR "EnO PASS" ( SW04s 1 ) OR 
GO TO STEP 1 (5W0430) 

ONE-WAY-OUT MODE 

1 , THE OVERLAY SETS REQUEST TO SEND 

2, WAITS FOR CLEAR TO SEND 

3, TRANSMITS SELECTED DATA 

4, RETURNS TO MONITOR FOP "END PASS", CSW04sn OR 
GO TO STEP 1 CSW04S0) 

E« THE OVERLAY IS THEN ENTERED AND A CONNECTION ESTABLISHED EITHER 
MANUALLY OR AUTOMATICALLY, 

IF ONE-WAY-IN OR INTERNAL LOOPBACK mqdeS APE SELECTED, 

THE OVERLAY WILL SET DATA TERMINAL READY AND WAIT FOR DATA, 

IF ONE-WAY-OUT OR EXTERNAL LOOPBACK MODES WERE SELECTED. 
THE OVERLAY WILL SET DATA TEpMINAT, READY AND REQUEST TO SEND. 
THE OVERLAY WILL THEN wAIT FOR CLEAR TO SEND BEFORE ATTEMPTING TO 
TRANSMIT DATA, 

THE PROGRAM WILL PRINTOUT A "WAITING FOR CLEAR TO SEND" 
MESSAGE AND ThE CONTENTS OF THE XMIT CSR EVERY 6« SECS, 
UNTIL CLEAR TO SEND IS ASSERTED, 
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P, IF 5WtMs0 THE OVEPLAY WILL CONTINUE TO 
TRANSMIT/RLCB.IVE DATA, 

IF SW04»1 THE OVERLAY WILL PtTURN 
TO THE WQNITOR AND TYPF "END PASS", 

IF BOTH Sv404sl AND SWt4sl# THE PhOGRAM WILL REQUEST 
NEW INTERFACE PARAMS AFTER ONE PASS OF THE SEF^ECTED 
TEST MODE, 

TEST EXECUTION MAY BE INTERRUPTED BY TYPING THE FOLLOWING 

CHARACTERS ON THE CONSOLE TTY, 

LINE FEED a RESTART PHOGRAM AT LOCATION 200, 

QUESTION MARK s PRINTOUT FIRST 8 WORDS OF INpUT BUFFER , C ASC I 1 ) 

THEN TYPE EITHEPi 

*WXXXXXX TO PRINTOUT THE 8 WORDS 

AT LOC XXXXXX, 

♦BXXXXXX TO PRINTOUT THE 16 BYTES 

AFTER LOC XXXXXX, 

#C TO CONTINUE 

PROGRAM MUST BE RESTARTED AT 200 AFTER PRINTING, 
CARRIAGE RETURN « RESTART AT REQUEST FOR NEW OPERATIONAL SWITCHES, 

5.0 PROGRAM AND/OR OPERATOR ACTION 

IF THE Operator wishes to manualy examine the transmit or receive 

BUFFERS, do THE FOLLOwlNGf TO FIND THP STARTING ADDRESS OF THE RECEIVE 
BUFFER, LOAD ADDRESS 11020 AND EXAMINr, TO FIND THE STARTING ADDpESS 
OF THE TRANSMIT BUFFER, LOAD ADDRFSS tl022 '^ND EXAMINE. 

5.1 NORMAL HALTS 
SEE SECTION 4, 



6.0 ERRORS 

6.1 ERROR REPORTING 

THE ONLY ERROR REPORT FpOM THE CONTROL PROGRAM OCCURS IF THE 
INTERFACE SPECIFIED I5 NOT LOADED, 

IF DATA IS RECEIVED AND SWITCH 7 (NO DATA COMPARE) 
IS RESET, THE DATA WIT L BF COMPARED Ar,AINST THE PRESELECTED 
DATA AFTER A LINE FEED CHARACTER IS RECEIVED, IF THERE IS A 
MISMATCH, THF FOLLOWING ERROR REPORT IS PRlNTEDj 



RECEIVED DATAxRRRFPR 
DATA SHOULD BF TTTTTT 

DAT«i COMPARE tRRORf BAD DATAsBBB GOOD DATAsGGG 



WHERE RPRRRR IS THE RFCFIVE BliFFER (UP TO 512 CHARACTERS) 
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TTTTTT IS THE TRANSMIT PUFFEK (Up TO 51? CHAPRCIEPS) 
BBB IS THF; bad r>ATA CHAPACTtH 
GGG Is THF GOOD DATA CHAPACTEB 

IF THE INTERFACE DETECTS A DATA ERROR, THE FOLLOWING 
WILL BE PRINTED BEFORE THE DA^A IS COMPARED J 

THERE WAS A PECEIVEH ERROK. RECEIVER DATA PEGISTEP =XXXXXX 

WHERE XXXXXX IS THE CONTENTS OF THE RFCElVEP DATA REGISTER 
THE LOW BYTE IS THE DATA, AND THE HIG" BYTE IS THE ERROR BITS, 

IF A RECEIVE TERMlNATJi^C CHAPACTLH<001> IS NOT DETECTED 
WITHIN 512 CHARACTERS A "BUFFER FULL" PRINTOUT *iILL OCCUR, 



7, a RESTRICTIONS 



THE OPERATION OF THIS PROGRAM REQUIRES COORDINATION BETWEEN 
THE OPERATOR AND THE OPERATOR OF ANOTHER PDP-11 SYSTEM 
UNLESS ONE OF THE SYSTEMS IS ALWAYS OPERATING IN A FIXED 
MODE, THE FOLLOWING TABLE LISTS THE VALID COMBINATIONS I 



CPU #1 CPU #2 

ONE-WAY-OUT ONE-WAY-IN 

ONE-WAY-IN ONE-WAY-OUT 

EXTERN AL»LOOpBACK INTERN AL.LOOPBACK 

INTERNAL-LOOPBACK EXTERNAL.LOOPBACK 

EXTERNAL-LOOPBACK EXTERN AL-LOOPBACK (FULL DUPLEX) 



WHEN THE COMMUNICATION LINK INVOLVES MODEMS THE FOLLOWING 
RESTRICTION APPLYl 

IF RUNNING IN FULL DUPLEX MODE BOTH SYSTEMS 
MUST BE IN EXTERNAL LODP BACK MODE. 

BOTH SYSTEMS SHOULD BE RUNNING IDENTICAL ROUTINES, 
EXAMPLE! 

SWITCHES 14*13,7,4 SHOJLD BE THE SAME 
ON BOTH CPU S 

IF PROGRAM IS WAITING IN A SCAN ROUTINE AND TYPES OUT 
A "WAITING MESSAGE", IF AN INCOMING MESSAGE STARTS DURING 
THE TYPE OUT, IT WILL 3E LOST BECAUSE THE TYPEOUT PRIORITY 
15 AT LEVEL 7, THIS WILL RESULT IN OVERRUN Or SILO OVER- 
RUN EPROrs, DEPENDING ON THE DEVICE, TO AVOID THIS SITUATION 
RUN WITH SWITCH 13 UP. IF OVERRUN DOES OCCURE DURING A 
TYPEOUT THE PROGRAM SHOULD BE RESTARTED, 



IF USING AN ASYNCRONOUS DEVICE, MODEMS AND THE 
MAYNARD TEST STATION A^D INITALIZE DOES NOT CLEAR THE 
CONNECTION (EXAMPLE TH£ DJU) IF THE orOGRAM IS RESTARTED 
IN THE MIDDLE OF A MESSAGE AT LOC 2K4 OP BY HITTING CP 
AN TMMEDEATE ERROR MES^il^FROM HAYNArD Wiy||||£ RE- 
CEIVED, THIS IS BECAUS-^' TEST STATION I F TILL LOOKING 
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FOP THE REST QF ThF I^TERUPTFD MESSAGE, TO AVOID THIS 
EPROh , PFSTAPT PFOCPAM OML^ AT THE END OF THE MESSAGE 
CURRENTLY BEING TRANSMITTED,, 



8,<!l MISCELLANEOUS 

ITEP WAS CHECKED OUT USING THE FOLLOWING BELL TELEPHONE MODEMS, 
201 ^ (HALF-DUPLEX SYNrHpONOUS 2^)00 BAUD) 
202C (HALF-DUPLKX ASYNCHRONOUS 1200 BAUD) 
103A (FULL-DUPLEX ASYNCHRONOUS 110 BAUD) 



9,«!' PROGRAM DESCRIPTION 

9.1 THE DMCll INTERFACE SERVICE PARAMS ARE SETUP* AS SPECIFIED BY THE OPERATOR, 
BY THE TTCP CONTROL PROGPAM, 

TIMEI PROVIDES A MEANS OF MEASURING ELARPFD TIME, IT IS INCREMENTED 
EVERY SECOND BY A CLOCK INTERRUPT ROUTINE IN TTEp, 

9.2 WHEN THE OVERLAY IS FIRST ENTERED BY TTEP AT LOCATION STARTI, 
THE CONTENTS OF THE SWITCH REGISTER ARE STORED IN REGISTER 0, 
THE MODE AND DATA SELECTIONS ARE FIXED AT THIS TIME AND CANNOT 
BE ALTERED WITHOUT RETURNING TO THE CONTROL PROGRAM, 

THE iNTFpPUPT VECTORS AND VARIABLES ArE THEN SETUP, 

THE SELECTED ROUTINE DETERMINED BY THE MODE IS THEN ENTERED 

9.3 THE OVERLAY THEN LOOPS IN ROUTINES* $OWI ,IF "ONE WAY IN" MODE 
WAS SELECTED, $OW0,IF "ONE WAY OUT" MODE WAS SELECTED, 

$IL8, IF "INTERNAL LOOP BACK" MODE WAS SELECTED, 
tXLB,IF "EXTERNAL LOOP BACK" WAS SELECTED, 

9,3it SOWIJ IN THIS ROUTINE THE RECEIVER IS INITIALTEEO AND PROGRAM 

LOOPS WAITING FOp THE RECEIVER TO FINISH, IF NOTHING IS RECEIVED 
FOR 60 SECS A "WAITING" MESSAGE IS TYpED, WHEN THE RECEIVER IS 
DONE, THE PROGRAM CHECKS DATA IF SWITCHES PERMIT#AND TYPES END 
PASS DEPENDING ON SWITCH SETTINGS, 

9,32 $0W0| THE TRANSMITTER IS INITIALIZED AND PROGRAM LOOPS 

WAITING FOR TPANSMITTFP TO FINISH, A "WAITING" MESSAGE IS TYPED 
EVERY 60 SECS IF THFRE IS NO ACTION, WHEN THE TRANSMITTER IS 
DONE, THE PROGRAM EITHER LOOPS BACK TO SOWO OR TYPES END PASS 
DEPENDING ON SWITCH SETTINGS, 

9,31 SILBI THE RECEIVER IS INITIALIZED AND PROGRAM LOOPS WAITING FOR 
RECEIVER TO FINISH, A "WAITING" MESSAGE IS TYPED EVERY 60 SEC 
IF NO ACTION, rtHEN RECEIVER IS DONE PROGRAM CHECKS DATA IF SWITCH 
SETTINGS PERMIT, AND END PASS IS TYPED IF SWITCH SETTINGS PERMIT, 
THFH THE TPSNSMITTER IS INITIALIZED, A "WAITING" MESSAGE IS TYPED 
EVERY 60 ?5EC IF NO ACTION, WHEN TRANSMITTER IS DONE PROGRAM pEFURNg 
TO START OF ROUTINE, ($ILB) 

9,3i4 SXLB; IF IN HALF DUPLEX THE TPANSMITTFH 15 INITIALISED, 

A "WATTING MESSACiE IS TYPED EVERY 60 SEC IF THERE IS NO ACTION 
WHEN THF TRANSMITTER IS DONE THE RECElVFfv IS INITIALIZED 
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,A "WAITING" ^^ESSAGE i;i T iPEV EVERY bc' SEC IF THERE If; NO ACTION, 
WHEM THE RECETVEp Ig DOKE,DATA Is CHEC^ED lE SWITCH SETTINGS 
PFRMIT AND END PASS IS TYPED IF SWITCHES ALtOW.THE PFOGPAM NOW 
PEPEAT5 CYCLE STARTING AT SXLP. 

IF IN FVhh DUPLEX THE RECEIVER AND TPR.NSM1TTER APE INITIALIZED 
, A "WAITING" MESSAGE IS TYPED EVERY fi0 SEC IF THERE IS NO 
ACTION, WHEN BOTH THE :^ECEIVEP AND TRawSMlTTtR ARE DONE, DATA IS 
CHECKED, END PASS IS TiPED AND FPOGRAM LOOPS TO SXLB DEPENDING 
ON THE SWITCH SETTINGS, 

9.4 THE RETUR»J TQ MONITOR ROUTINL FOR END PASS AT EOP| 

LOCKS OUT INTERUPTS AND SAVES THE TRANSMITTFR INJERUPT ENABLE 
BIT AND ALL GENERAL RESISTERS, IT THEN PETURNS TO THE MONITOR 
10 TYPE "END PASS", THE MONITOR CHECKS SW14 IF UP IT PETUPNS 
10 ENTEPj, OTHERWISE XT RESTARTS THE PROGRAM, 

9.5 ENTERl IS ENTERED FROM THE MONITOR AFTER TyPEING "END PASS", 
IT PESTOpFS THE GENERAL REGISTERS AND THE TRANSMITTER CSR 

AS SAVED IN EOP, THE DELAY FLAG IS SET AND PROGRAM RETURNS TO 
THE SCAN ROUTlNEtOWO,OWI,ILB,XLB) WHEpE IT CAME FROM, 

9.6 THE INITIALIZE TRANSMIT SUBROUTINE AT STARTXi 
SETS UP THE INTERFACE AMD POINTERS NECESSARY TO 
INITIATE A TRANSMIT OPERATION, 

AFTER SETTING "DATA TERMINAL READY" AND "REQUEST TO SEND" A CHECK 

IS MADE ON PARAM2 TO DETERMINE IF HALF DUPLEX OPERATION 

WAS SELECTED BY THE OPERATOR, IF IT WAS, THE 

SUBROUTINE WAITS FOR CLEAR TO SEND, 

A 'WAITING FOP CLEAR TO SEND' PRINTOUT OCCURS 

EVERY 30 SECONDS UNTIL CLEAR TO SEND IS ASSERTED, 

9.7 THE INITIALIZE RECEIVED SUBROUTINE AT STAPTPj 
SETS up THE INTERFACE AND POINTERS NECESSApY TO 
RECEIVE A MESSAGE, 

9.8 THE TRANSMIT INTeRPUPT SERVICE ROUTINE, 

AT XISRI, IS ENTERED VIA TRANSMIT INTERRUPTS 
FROM THE INTERFACE, 

A TEST Is MADE TO SEE IF THE LAST CHARACTER 
TRANSMITTED WAS A NuLL (ALL ZErOs) CHARACTER, 
IF IT WASi THE TRANSMIT LOGIC IN THE INTERFACE 
IS RESET AND THE TRANtjMIT COMPLETE FLAG IS SET, 
AT XlSRll THE NEXT CHjiRACTER IS TRANSMITTED 
AND PRINTED ON THE TT^' IF THE MONITOR TRANSMIT 
SWITCH IS SET, 

9.9 THE RECEIVE INTERRUPT SERVICE ROUTINE 

,AT RISR:, IS ENTERED VIA RECEIVER INTERRUPTS 
FROM THE INTERFACE, 

THE RECEIVED CHARACTER IS STORED IN 

THE INPUT BUFFER AND PRINTED ON THE TTY IF 

THE MONITOR RECEIVER ;5WITCH IS 5FT, 

IF THE INPUT BUFFER I,:3 FHT.l, A 'BUFFER FULL' 

PRINTOUT WILL OCCUR, THIS INDICATES THAT A 

LINF FEED CHARACTER W VS NOT PECOGNIZFD 

IN THE RECEIVED DATA :ig||||N IP100 CHApACTE| 
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IF ThF HFCEIVFD CHARACTEH IS A LINE fF.KT), 
THE FECFIVED LOGIC IS PESLT AND THE 
PTCF;IVE COiMPLFXE FLAG IS SFT, 

IF A 'RECEIVE FRPOR' IS DETECTED AT PlSRt, THE 
CSP AND DBR WILL BE SAVED A^^D PPINTED OUT 
AFTER THE COMPLETE MESSAGE HAS BEtN PFCEIVEH. 

9,10 THE DATA TEST SUBROUTINE AT TESTDJ IS 

ENTERED AFTER A COMPLETF MESSAGE HAS BEEN 
RECEIVED, 

IF A 'RECEIVE ERROR' HAD BEEN DETECTED* 
THE CONTENTS OF THE 'RECEIVE BUFFER' AT THE 
TIME THE ERROR OCCUPRFO WILL BE PRINTED, 
THE DATA IS COMPARED UNTIL A 'ALL ZEROS' 
CHARACTER IS RECOGNIZED, 'FILL' (ALL ONES) 
CHARACTERS ARE IGNORED, IF A MISMATCH 
IS DETECTED* THE COMPLETE CONTENTS OF THE 
INPUT BUFFER AND GOOD DATA IS PRINTED, 



1»,0 PARAMETERS FOR THE DMCll 

DZDMOA PROVIDES THREE TESTS FOR THE OMC-ll , SELECTABLE BY 
THE PARAMETER LOCATIONS PROVIDED IN ITEP, JHE THREE 
TESTS ARE! 

10,1 1,) LINK TEST 

NORMAL ITEP OPERATION, THE ONLY RESTRICTION 
IS IT MUST BE DMC TO DMC, IT IS NOrMAL TO GET 
SOFT ERRORS DURING THE LINK TFST, THE PARAMETERS 
FOR THE LINK TEST ARE AS FOLLOWSl 

PARAM#1 IS NOT USED (0) 

PAPAM#2 FULL/HALF DUPLEX SELECTION 
BITe» ■ HALF DUPLEX 

• I FULL DUPLEX (DEFAULT) 

PARAMU IS NOT USED ( 177777) 



10,2 2.) SECONDARY MODE TEST 

THIS TEST CHECKS THE SECONDARY STATION DELAY, 
IF PUNNING THIS TEST, EXTERNAL LOOP BACK IS 
THE ONLY LEGAL MODE OF OPERATION, ALSO BOTH 
DMC-ll'S MUST HAVE HALF-DUPLEX SELECTED AND THE 
SECONDARY MODE PIT SET IN THE PARAMETER WORD, 
ADDITIONALLY ONE DMC IS SET TO BE THE SECONDARY 
STATION AND THE OTHER ThE PRIMARY STATION, 
AGAIN IT IS NORWAL TO GET SOFT ERRORS DURINC; 
THE SECONDARY MODE TEST AS IN THE LINK TEST, 
THE PARAMtTERS FOR THE SECONDARY MODE TEftT 
ARE AS FOLLOWS! 
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PApAM«l IS NOT USED (pi) 



PARAMI2 SFCONDARY MODE TEST SELECTION 



BIT0 
bITl 
BIT2 



h»LF DUPLEX(MnST BE ^' FOp THIS TEST) 
&ECODABY MODE TFSTC^UST BE 1) 
PRIMARY STATION 
SECONDARY STATION 



PARAM#3 IS NOT USED (177777) 



10,3 3,) BOOTSTRAP TEST 



THIS WILL TEST THE ABILITY OF A DMC TO BOOT 
ANOTHER DMC USX^G MOP MESSAGES, THIS TEST 
REQUIRES A M93{)l»Yj AT ONE STATION, THE STATION 
WITH THE M9301-YJ IS THE BOOT STATION, THE 
OTHER IS THE ORIGINATING STATION, THERE ARE 
TWO VARIATIONS OF THIS TESTI I) AUTOMATIC 
MODE IN WHICH THE ORIGINATING STATION SENDS 
THE BOOT MESSA3E TO THE BOOT STATION DMC 
WHICH CAUSES THE DMC 10 BOOT THE M9301-YJ, 
2) MANUAL MODE* IN THIS MODE THE BOOT STATION 
M9301 IS MANUALLY BOOTED, IN aDOITtION TO THE 
PARAMETERS THE SWITCH REGISTER MUST BE SET AS 
F0LL0W5I SW09«1 SW02bI, MAKE ALL NECESSARY MODEM 
CONNECTIONS AND CALLS BEFORE STARTING THE BOOTSTRAP 
TEST, THE PARAMETERS FOR THE BOOTSTRAP TEST ARE 
AS FOLLOWS! 



PARAM#1 BOOTSTRAP TEST SELECTION 

BITS « 1 bOOT STRAP TEST 

BITS 106i9 MODE & STATION SELECT 

■ 00 ORIGINATING STATION-AUTOMATIC MODE 

« 01 HOOT STATION-AUTOMACTIC MODE 

a 10 ORIGINATING STATION-MANUAL MODE 

n U «00T STATION-MANUAL MODE 

BITS 0-7 SWITCH FAC SETTING OF BOOT 

STATION DMC-11 DDCMP LINE* 
(USED AS PASSWORD IN MOP MESSAGE) 



PARAMI2 IS NOT USFD (0) 



PARAM#3 IS NOT USED (177777) 



11,0 DMCll RESTRICTIONS 



11.1 THE DMCll IS A DMA DEVICE AND THEREFORE THE TRANSMITTED 
AND RECEIVED DATA CAN NOT BE MOMTOftED ON A PER CHARACTER 
BASIS BY THE CON5OLE tTY, BECAUSE OF THIS, SW05 AND SW06 
HAVE NO EFFECT, 

11.2 DMC ITEP IS MEANT TO Bj^W ON LINF MNK TE Sl^F OR TWO 
DMCllS, DMC ITEP WILL f^^ORK WITH ANY 0T|^^DEVICE 
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RUNNING ITtP FXCEPT ANOTHEF* 0^011, 

111,3 BECAUSE THE DMCH SUPpOPTS DDCMP OpEpaTlON IN THE FlR^iWARE, 

THE PDP-n PROGRAM (ItEP) IS UNABLE Tn CONTROL OR KNOW EXACTLY 
WHAT IS BEING TRANSMITTEH AT ANY GIVEM TIME, ALL DATA 
MESSAGES ARE ENCLOSED IN A DDCMp ENVELOPE AND THERE MAY 
ALSO BE CONTROL MESSAGES (AKS NAKS ETC) BEING TRANSMITTED, 
BECAUSE OP THIS PLEASE BEWARE IF YOU ARE SCOPING DATA, 
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66fc 






66t 












66) 




I"! 1 000 


66* 




C46'04 


665 


•SI 1004 


j 6001*1 


666 


&i 10(16 


(t 010 300 


667 


■»! 101H 


3002 10 


668 


HI lt:)12 


000000 


669 


0! 1014 


e'«0001 


67» 


ifl 1U16 


1 77777 


671 


i«llt)2>« 


900000 


672 


<)t lld22 


1^00000 


67} 


1. 1 1024 


000200 


674 


\fi l»2b 


000000 


675 


ei i03» 


000000 


676 


ei 1(932 


000000 


677 


V11034 


900200 


678 


l»l 1036 


iJl 1 1 06 


679 


^1 1040 




6liU 


ei i04fl 


000 


661 


911041 




6S2 


011041 


001 


683 


rU042 


900000 


684 


1911^44 


177570 


685 


A11046 


1 77570 


6B6 






687 






688 






689 






690 




^00000 


691 




1140000 


692 




S40000 


693 




»20000 


69t 




K20000 


695 






69b 


(•11050 


(100000 


697 


»1 1052 


000000 


698 


P11054 


000e00 


699 


311056 


009000 


703 


»1 1060 


000000 


7^1 






7i;2 


al lifi62 


(»90090 


7k»3 


i" 1 1064 


0001f00 


7k!4 


^1 1066 


^30000 


7^5 


eU07e 


900000 


70b 


tni072 


ill00000 


7e7 


(♦11074 


000000 


7ag 

789 


0tl«)76 


177560 


71*» 


011100 


177562 


711 


eiU02 


177564 


712 


l»l 1 104 


177566 


713 






714 




000001 



01400 

01500 



I *«••**»•«••*•• 

I DMCll I 



••»»•*••••«•**•*»*«••••*•**••*• t***************** 

nTepface service PARAMS 

••»»»»«♦»»«•••••••»••»•••#•*»•««»••*»»»*•«•»*•••♦ 





f i 1000 






DMCl 1 1 


ASCIZ 


/CMC/ 


fISR NAME 




160010 




t@US addrEss 


PIVl 


300 




S VECTOR ADDRESS 


PRIORI 


240 




J PRIORITY 


PARAMl 1 







jPARAM 11 


PABAH2! 


1 




;PARAM $2 


PARAM31 


177777 




iPARA** t3 


IRHAI 


.WORD 





{INITIAL READ DATA ADDRESS 


IXDAi 


.WORD 





JINIIIAL XHIT DATA ADDRESS 


SETTLE J 


.WORD 





jLINE SETTLE DELAY FLAG 




.WORD 





t 


B2016t 


.WORD 





jAODR OF SIN TO OCT TYPE ROUTINE 


TIMEl 


.WORD 





JTIMER 




.WORD 





f 




.WORD 


START 


jAODR or START OF PROGRAM 


TX.TEBHt 








.BYTE 


000 


fTRANSMlTTER TERMINATING CHAR, 


rx.terh: 










.BXTE 


001 


jRECEIVER TERMINATING CHAP, 


FLAGi 


.WORD 







SWRI 


177570 






DISPl.Ayil77S79 







I*************************************************************** 

I CONSTANTS > WORKING STORAGE 

}»*•«•«••••*••••*•••«•••**»••«••••••*«*»••••**••*«•*•**•••«»**** 

STATaR0 



XFLGb 100000 
RPLaa40000 
DSFLGa2«)000 
BIT13S20000 



SXCSRI 

SRCSRl 

ERCSRI 

EROBRI 

OSSTATi 



TXWCI 

RXWCi 

XCCI 

RCCi 

ROAl 

XDAl 



IXMIT COMPLETE FLAG 
|RCV COMPLETE FLAG 
iDATA SET STATUS CHANGE FLAG 
jINHlBIT PRINTOUTS 

jSAVED XHIT CSR 

; SAVED RCV CSR 

;RCV CSR SAVED ON ERROR 

jRCV DATA REG SAVED ON ERROR 

jRCV CSR SAVED ON DS CHANGE 



jXMIT CHAR COUNT 
jRCV CHAR COUNT 
}RCV DATA ADOR. 
jXMIT DATA ADDP. 



TKSI 177560 

TKBI 177562 

TPS! 177564 

TPBJ 177S66 

FULL.DUPLEXa000001 
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715 






716 






717 






718 


i!ill 106 


900240 


719 


01111" 


01 7700 


720 


011114 


042700 


721 


t;11120 


013702 


722 


Ptll24 


012722 


723 


'411130 


013722 


724 


('11134 


012722 


725 


«*11140 


013722 


726 


i?11144 


et3704 


727 


?1 1150 


313702 


728 


011154 


el27l2 


7J9 


»1 1 160 


e12762 


730 


IX11166 


'"32737 


731 


BI 1174 


001405 


732 


»11176 


B12712 


733 


iF11202 


11 2762 


734 


011210 


012714 


735 


011214 


013702 


736 


011220 


005003 


737 


e.i'.222 


0@9<03 


738 


DI1224 


123722 


739 


eii230 


001374 


740 


1111232 


010337 


741 


i»11236 


062703 


742 


011242 


01033? 


743 


011246 


9057 14 


744 


ttll250 


100376 


745 


nil 252 


005037 


746 


911256 


005037 


747 


»1 1262 


!»05037 


748 


311264 


005714 


749 


011270 


100376 


750 


«*11272 


052764 


751 


ml 1300 


052714 


752 


a« ; Jul 




751 


911310 


B05037 


754 


411314 


005037 


755 


011320 


005037 


756 


ifll324 


0H5037 


757 


»tl330 


005037 


758 


011334 


105037 


759 


911340 


B<t5037 


760 


011 344 


005037 


761 


011350 


005037 


762 


011354 


1B5037 


763 


011360 


H05037 


764 


•»11364 


905037 


765 


01 1370 


032737 


766 


I»tl376 


041402 


767 


01 1400 


0001 37 


768 


011404 




769 







I ••••••«•«•••••••••••«•*»••«•••»•«•••••«•••••»«*•«»••••••••***•* 

I DMCn-X INTERFACE SERVICE ROUTINE 

}•»•••»«••••*••«*••••#•*»••••••«••«••»•••*«•••»*••«••«•*•••*•»«* 



177730 
177400 
011006 
014032 
011010 
013544 
011010 
011004 
01 1006 
013544 
014032 
000400 

015126 
015312 
040000 
011022 



011040 

011062 
000010 
011064 



016744 

016754 
016752 



000100 
000143 

011056 
016766 
016770 
016772 
016774 
017001 
017003 
017004 
017006 
017010 
0l675(* 
016742 
000400 

014254 





START 1 


NOP 










MOV 


•SNR» R0 


I SETUP MODE IN R0 






BIC 


tl77400i 


R0 (STRIP JUNK 






MOV 


RIV. R3 


•SETUP 






HOV 


»RI5R, CR2)+ 


(INTERRUPT 






MOV 


PRIOR, CR3)'» 


(VECTORS 






HOV 


»XISR, (R3H 








MOV 


PRIOR, (R2H 








MOV 


BA, R4 


(SETUP BUS AODR INDEX 


01700 




MOV 


RIV«R3 


(ADJUST VECTORS FOR 


01B00 




MOV 


IXISR,(R3) 


(INPUT SERVICE ROUTINE 


01900 




MOV 


*RISR,4(B3} 


(OUTPUT SERVICE ROUTINE 


03000 




BIT 


*BIT8, PARAMl 


(BOOT MODE? 


03100 




BEQ 


31 


(BR IF NO 


03200 




MOV 


f IISR,CR2) 


(LOAD BOOT VECTORS 


03300 




HOV 


«0ISR,4CR3) 




03400 


311 


HOV 


tBIT14,CR4] 


(MASTER CLEAR DMCll 


02500 




HOV 


IXDA,R3 


(CALCULATE WORD COUNTS 


03600 




CLR 


R3 


(CLEAR COUNT 


03700 


lit 


INC 


R3 


(INC COUNT 


03S00 




CMPB 


TX.TERH,(R3]« 


(LAST CHARACTER? 


02900 




BNE 


1* 


(BR IF NO 


03000 




MOV 


R3,TXHC 


(STORE XHIT COUNT 


03100 




ADD 


ll0fR3 


(ADD 10 TO IT 


03300 




MOV 


R3,RXHC 


(STORE REC COUNT 


03300 


211 


TST 


(R4) 


(WAIT FOR RUN 


03400 




BPL 


2« 


(BR IF RU« NOT SET 


03S00 




CLR 


BASCFG 


(CLEAR BASE LOAD FLAG 


03600 




CLR 


RFLAG 


(CLEAR RECEIVE FLAG 


03700 




CLR 


XFLAG 


(CLEAR XMIT FLAG 


03800 


4$l 


TST 


(R4} 


(RUN SET? 


03900 




BPL 


4« 


(BR IF NO 


04000 




BIS 


*100i2CR4} 


(SET OIE 


04100 




BIS 


1143, (R4) 


(ASK FOR BASE TRANSFER 










fCiiSAR bRRwR LvCATXwiio 


04300 




CLR 


ERDBR 




04400 




CLR 


ERrCNT 


(CLEAR SOFT ERROR STORAGE 


04500 




CLR 


ERRCNT*3 


;L0C»TI0«8 


04600 




CLR 


ERRCNT+4 


04700 




CLR 


ERBCNT+6 




04800 




CLRB 


BASE+3 


(CLEAR BASE ERROR COUNT LOCATIONS 


04900 




CLR 


BASE't'4 




05000 




CLR 


BASE+6 




05100 




CLR 


BAsEf 10 




05200 




CLRB 


BASE'M3 




05 300 




CLR 


TEMP3 




05400 




CLR 


RESUME 


(CLEAR RESUME FLAG 


05500 




BIT 


•BITSfPARAH! 


(BOOT MODE? 


05600 




BEQ 


51 


(BR IF NO 


0S700 




JMP 


BOOT 


(CO TO START OF BOOT CODE 


05800 


511 








05900 
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771 
777 
773 
774 
775 
776 



794 
795 
79b 
797 
799 
799 

Bm 

804 

835 

987 
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ROUTINE USFD TO GOTO 
SUBROUTINB DEPENDENT 
ON MODE SELECTED. 
»♦»•«»»«•»•»••»••••*»«•••••♦•••*••»•»* 



777 


i;ll404 


005^37 


01 11)32 


Got 


778 


P 1 1 4 1 ti 


005037 


01 3 376 




779 


1^11414 


flJ5'?37 


013402 




780 


U11420 


032700 


000001 




781 


nil424 


001402 






782 


1^11426 


0001 37 


011606 




7fl3 


»1 1432 


»12700 


000003 


111 


784 


•.jn436 


PM1402 






785 


f.l 1440 


ra0i37 


011474 




796 


tlll444 


032700 


000010 


2$i 


797 


"11450 


001402 






788 


lfll4S2 


0001 37 


011710 


3g| 


789 


)<I11456 


032700 


000004 


79.S 


etl462 


001402 






791 


H11464 


1001 37 


013144 




792 


t»i 1 


000000 




4»l 


793 


'111472 


00077b 







Clip 


TIME 




CljR 


DELAY 


CLB 


STOP 




BIT 


*owo, 


MODE 


BEQ 


i( 




JMP 


lOWO 




BIT 


lOWl, 


MODE 


BEQ 


2( 




JMP 


tOMi 




BIT 


»ILB, 


MODE 


BEQ 


3« 




JMP 


SILB 




BIT 


fXLB. 


MODE 


BEQ 


4$ 




JMP 


tXLB 




HALT 






BR 


• -2 





808 


f>n474 


104416 






»0«II 


KBDIN 


809 


011476 


004737 


013474 






JSP 


810 


0US02 


a3270.J 


040000 




111 


BIT 


«11 


0U50& 


001013 








BNE 


812 


f>l 1510 


PI33727 


011032 


000100 




CMP 


8)3 


■♦11516 


103771 








BLO 


814 


01 1520 


0U402 








MOV 


815 


011522 


!fl6403 


000003 






HOV 


816 


?1152b 


104001 








HLT 


817 


011530 


005037 


011032 






CLR 


Bie 


SMli)34 


000763 








BR 


819 














920 


011536 


033777 


000300 


177300 


3tl 


BIT 


821 


itl544 


t<01002 








BNE 


822 


01 1546 


004737 


013622 






JSR 


823 


*'n552 


042700 


040000 




311 


BIG 


824 


-fl 155b 


004737 


016176 






JSR 


825 


H1562 


033777 


000020 


177354 




BIT 


826 


nil 573 


?01405 








BEQ 



t «*••«•*»••••«•««»*»•«**•••»*•*••••••••••••••*•••**••»******••«**«*** 

J ROUTINE USED IF "ONE WAY IN" MODE WAS SELECTED, 

I NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE 

I ONLY MODE AVAILABLE. 

I "ONE WAY IN" WEANS THAT ONLY THE RECEIVER IS 

, ENABLED. THE TRANSMITTER IS NEVER "TURNED ON", 

I ♦••••••»»•«•••♦••»•••••••••♦••••••••♦••»•••*•••••♦•♦•♦••♦•••*••♦•*•♦ 



PC.SIARTR 

#RrLG,STAT 

28 

TIME, 1100 
1$ 

»PCSR,R2 

XCSRCR4),R3 

t 

TIME 
IS 



UNODATr^aWR 
31 

PC.TESTD 

IPFLGtSTAT 

PC.CKBASE 

ILOOP,«SWR 

4« 



jCKECK DHC SOFT ERROR COUNTERS 
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927 
828 
829 
8 30 
931 
832 
833 
834 
835 
8 36 
937 
8)8 
839 



85V 

861 



('11572 012737 011604 013400 
011600 000137 012462 
H11604 009733 



4«l 



MOV 
JMP 
BR 



I4I>BACK 
tOWl 



»•»«••••••*••»»•»•«••••#••»»•#•*••#••••»•♦••♦•*»*»••♦••••♦#*•»»•••••• 

I ROUTINE USED IF "ONE WAY OUT" WAS SELECTED, 

I NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE ONLY 

I MODE AVAILABLE, 

I "ONE SAY OUT" MEANS THAT ONLY THE TRANSMITTER IS 

» EHABLSO, THE BECEIVSB IS NEVER "TURNED ON, 

I »#»»•»»•••«•»#«»#•••♦•»♦•♦»»♦»•##♦♦» »♦•♦»♦♦»#•♦••»««•••»»••••♦**»*♦* 



P40 


1606 


10441b 












841 


rl Ibl0 


004737 


013404 






JSR 


PCSTABTX 


842 


«?11614 


9a5017 


011032 






CLR 


TIME 


843 


tKl 1620 


"32700 


100000 




1(1 


BIT 


fXFLGiSTAT 


944 


011624 


001013 








BNE 


21 


945 


011636 


»»23727 


011032 


000100 




CMP 


TIMG,«i00 


846 


011634 


103771 








BLO 


t« 


8*7 


011636 


211402 








MOV 


•RCSR,R3 


848 


f 11640 


016403 


000002 






MOV 


XCSR(R4),B3 


849 


011644 


1 04001 








HLT 


1 


850 


011646 


005037 


011032 






Cl>R 


TIME 


851 


01 1652 


003763 








BR 


li 


852 


rll654 


042700 


100000 




21! 


BIC 


IXFL0,5TAT 


853 


PI 16651 


004737 


016176 






JSR 


PCCKBASE 


854 


«U6b4 


032777 


000020 


177152 




BIT 


KLOOP, eSKP 


855 


011672 


001 405 








BGQ 


3( 


856 


011674 


0S2737 


011796 






HOV 


«3S»BACK 


857 


Ctl 702 


0BC1 37 


012462 






JHP 


EOP 


858 


*;n706 


tfPii(737 






3$t 


BR 


scso 



fCKECK DHC SOFT ERROR COUNTERS 



D«C11 ITf.P Oi(KfiL»» 



MACY11 3HtM*S) U-JnL-77 1 2:39 PACE 2'' 



PAGE! 





• M A S » 7 7 


1 1 ! 2 










n 6 3 








R64 








f)6^ 








P66 








867 








RbS 








r69 








B73 








«7l 








872 








873 


J111710 






87« 


F11712 


]A4717 


01 3474 


875 


r 1 1716 


^050 3 7 




876 


?«n722 


£132700 


(}40000 


877 


el 1726 


001 '013 




878 


»1 1730 


07 3727 




879 


P11736 


103771 




880 


y>i 1740 


^! 1 * 




88t 


^1 1742 


01640 3 


000002 


B82 


01 1746 


' 04001 




863 


Ibtl 175ii> 


005037 


01 1032 


884 


trl 1754 


000762 




8SS 


«k1 1756 




000200 


886 


t>l 1764 






887 


»1 1766 


(*04 7 37 


01 2622 


888 


al 1772 




Irt40000 


889 


S»1177b 


f#047 37 




893 




0^2777 


000020 


891 


t>120lt« 






892 


»12t912 


812737 


01 2024 


893 




0^01 37 


^12 462 


804 


t>12024 


032777 


000400 


89^ 


1*12032 


00 1416 




896 


!'12034 


(*1 3702 




897 






01 1027 


898 


$.12^44 


0103 37 


(7 1 I t* ' 't 


899 




t 1 2223 




9tt0 


K12052 


■^0 137 6 




901 


"l 2054 


112743 


000177 


9t)2 


i/12063 


1405203 






bI 2062 


1 1 2723 




904 


t 1 2066 


' **' * 




9t)5 


^12070 


0^5337 


01 1032 


9tl6 


31 2i»74 


P J47 J7 


01 3404 


9e*7 


rl 21 00 


^3270^ 


1 00000 


9«<8 


«12104 


(S0 1 * 1 3 




9i>9 


til2106 


023727 


011032 


910 


)«12ll4 


1 037 71 




911 


S12116 


011432 




9! 2 


■tl 31 3b* 


»164a3 




913 


012124 


104001 




914 


«>12126 


005037 


011032 


915 


(>12132 


B0«7b2 




916 


(412134 


P42700 


100000 


917 


"•12140 


000137 


01171^ 



HOUTINE USE'' IF INTERNAL hQOV BACK" WAS SELF-CTEn, 
J NOTE THAT WHEN IN THIS MODE) HALF DUPLEX IS THE 

I ONLY MODE AVAILABLE, 

J "INTERNAL LOOP BACK" MEANS THAT THE RECEIVER IS "TURNEt; ON" 

t AND A COMLPETE MESSAGE IS RECEIVED, IF DATA IS TO BE CHECKED 

J IT ISs TF "END PASS" IS DESIPEOp IT Is GIVEN, 

J THEN THE TRANSMITTER IS ENABLFO, AFTER THE t«HOLF MESSAGE 

I IS TBANSMlTTEDj THE CYCLE IS REPETED AS ABOVE, 

J *•«**•«••••«•••*•«»*•••««**««*••«•••*»«»•»»«»»**•»**••*•**«*******•* 

tILBI 



3$I 



KBDIN 




J5R 


PCf STARTR 


CLP 


TIME 


BIT 


#RFIiGtSTAT 


BNE 


2t 


CHP 


TtME,*100 


BLO 


It 


HOV 


»RCSR«R2 


MOV 


XCSPCR4)(R3 


HLT 


1 


CLR 


TIME 


BR 


1 1 


BIT 


tNODATf 9SWR 


BNE 


31 


JSR 


PCTESTD 


BIC 


VRFLGrSTAT 


JSR 


PCCKBASE 


BIT 


ILOOPi 9SWR 


BEQ 


4t 


HOV 


f 4|rBACK 


JMP 


EOP 


BIT 


I400f fSWR 


BEQ 


71 


MOV 


IRDA, R2 


MOV 


IXDA, R3 


HOV 


R3, XDA 


MOVB 


tB2)+f (R3)+ 


BNE 


.-2 


MOVB 


#177, -CR33 


INC 


R3 


MOVB 


#177, (R3)+ 


CLRB 


CR3) + 


CLR 


TIME 


JSR 


PCSTARTX 


BIT 


»Xrl<G,STAT 


BNE 


6« 


CMP 


TIHC,#100 


BLO 


5« 


MOV 


»RCSR,R2 




aCsRCR^) ,R3 


HLT 


1 


CLR 


TIME 


BR 


51 


BIC 


• XFLCSTAT 


JMP 


SILB 



jCKECK DMC SOFT ERROR COUNTERS 



|U6E EXTERNAL DATA? 

jBR IF NO 

J SET POINTER 

jSET POINTER 

fSETUP XMII DATA ADDR 

;HOVE INPUT TO OUTPUT 

;LOOP IF NOT ZERO CHAP 

J INSERT A FILL CHAR 

;BUMP ADDRESS 

I INSERT ANOTHER FILL 

J INSERT ZERO CHAR 
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MACYll 
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-MAY-77 


11138 


916 








919 








920 








921 








922 








923 








024 








925 








926 








927 








928 








079 








930 








931 


012144 


104416 




932 


P12146 


832737 


000002 


933 


012151 


0fll004 




934 


f 12156 


032737 


000001 


935 


0U164 


001417 




936 


!»12166 


004737 


013474 


937 


P12172 


037737 


000004 


938 


1912200 


»0141 1 




939 


012202 


005737 


016750 


040 


'J12206 


001403 




941 


012210 


933700 


040000 


942 


(•12214 


»<»i774 




9*3 


, 012216 


b12737 


177777 


944 


P1722« 


B04717 


013404 


945 


V12230 


005037 


011032 


946 


PI2734 


032700 


100000 


947 


012240 


k;01016 




948 


.212242 


032700 


040000 


949 


nl2246 


001030 




950 


<)12250 


073727 


011033 


951 


012256 


J 03766 




952 


••12260 


01 1^02 




953 


012262 


016403 


000003 


954 


»12266 


104001 




955 


("12270 


005(!3' 


011033 


956 


013274 


000757 












958 


012304 


901356 




959 


e>12306 


032737 


000001 


960 


012314 


001352 




961 


l«123]6 


042700 


100000 


962 


012322 


004737 


013474 


963 


V13326 


000742 




964 


012330 


032737 


000003 


965 


tfl2336 


001004 




966 


013340 


032737 


000001 


967 


C12346 


H01420 




968 


012350 


032700 


100000 


969 


H133S4 


001013 




970 


»12356 


023737 


0U(i33 


971 


012364 


103761 




072 


013366 


011403 




97} 


F12370 


<I16403 


0e0«'e3 
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ROUTINE USED ir "EXTERNAL LOOP BACK" WAS SELECTED, 
EITHER HALF OR FULL DUPLEX MAY BE SELECTED IN THIS MODE, 
"EXTERNAL LOOP BACK" MEANS THAI THE TRANSMITTER IS FIRST 
TURNED ON (IF HALF DUPLEX) AND THE HHOLE MESSAGE IS IBAN5M1TTED| 
THEN THE RECEIVER IS ENABLED, AFTER THE WHOLE MESSAGE IS RECEIVED 
DATA WILL THEN BE CHECKED IF DESIRED AND END PASS WILL 
BE GIVEN ir DESIRED, THEN THE CYCLE IS REPEATED 
ftS ftSOVE, IF SyKKING IH FULL SUPLEX THE PrCGRAM 
WAITS FOR BOTH THE RECEIVER AND TRANSMITTER TO 
FINISH THEN RESTARTS THE RECEIVER AND TRANSMITTER, 
•*•««•*»»*«••••••••**••••«*•••••«••••*••••***•••••*•**•**•***•****** 



iSECONDAPy MODE? 
(BR If YES 



011014 



01 1«14 



IXLBi 


KBDIN 






BIT 


»BIT1,PARAH2 




BNE 


91 




BIT 


(FULL. DUPLEX, PARAM2 




BEQ 


1» 


9lt 


JSR 


PC, STARTR 




BIT 


»BIT2,PARAM2 




BEQ 


It 




TST 


TEHP2 




BEQ 


lit 




BIT 


#RFLG,8TAT 




BEQ 


t"6 


lltl 


HOV 


#-l,TEHP2 


ISl 


JSR 


PCSTARTX 




CLR 


TIME 


3tl 


BIT 


IXFLG.STAT 




BNE 


3t 


711 


BIT 


IRFLCfSTAT 




BNE 


4t 




CHP 


TIME, #100 




BLO 


3t 




MOV 


*RCSR,R3 




MOV 


XCSRCR4],R3 




HLT 


1 




CLR 


TIME 




BR 


2t 


3*1 


oIt 


PBITl,PAPAn2 




BNE 


7t 




BIT 


IFULL. DUPLEX, PARAM3 




BSE 


7t 




BIC 


IXFLGfSTAT 




JSR 


PC, STARTR 




BR 


31 


4f 1 


BIT 


IBIT1,PARAM3 




BNE 


10t 




BIT 


»FULL, DUPLEX, PARAM2 




BEQ 


St 


10tl 


BIT 


»XFLS,STAT 




BNC 


6t 




CMP 


TIME, #100 




BLO 


4t 




MOV 


•RC»B,R3 




MOV 


XCSR(R4},R3 



iSECONDApy STATION? 
jBP IF NO 
jFIRST TIME HERE? 
|BR IF YES 

jWAIT FOR RECEIVE BEFORE 

(TRANSMITTING 

(SET FIRST TIME FLAG 



I SECONDARY MODE? 
|BR IF YES 



iSCCONDARY MODE? 
|BR IF YES 
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PAGE! i^KSl 



<»7« 

"576 
977 
978 
979 
98^ 
9« I 
98 2 
983 
984 
985 
986 
987 



•H2374 
SJ12376 
i»l?402 
1*12404 
I»I241«) 
»)24J4 
91242<» 
I!t242b 
P1243i» 
Itl3434 
012440 
fU2446 
(•12450 
m /45b 



g3tH»2 









HLI 


1 


!tl S032 






CLP 


TIKE 








BP 


41 


1 ?0i^k>0 




6S| 


BIC 


IXFLG.STAT 






R«l 


BIC 


tPFLGf ST*T 


011032 






CLR 


TIME 


CI0020>4 


176416 




PIT 


tNODATiSSWP 








BNE 


51 


012622 






JSR 


PC.TESID 


1(116176 






JSft 


PCfCKBASE 


000H2« 


176376 




BIT 


«LOOPi?SWR 








BEQ 


IXLB 


012144 


01 3403 




MOV 


»$XLB,BACK 


012462 








EOP 



jCHECK DMC SOFT ERROR COUNTERS 
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DTDMO.PII 18 


-«»Y»77 


1 1 128 












988 










1 ••••*•**«•••••••*••••••••«•• 




989 










I 


ROUTINE 


TO RETURN 




99ii 










1 


TO MONITOR FOR 




991 










1 


END PASS. 




99 2 










1 ••»•»»••••*•••••••*»»••••••• 




993 
994 


^•12462 








SPPJ 








995 


P17462 


10441 i 


000340 






SIP8»PR3 


:y7 


ISET PS PRIORITY TO 7 


996 


012466 


P16437 


000^07 


012620 




MOV 


XC8P(R4)»0TPIC 


jSAVE TX CSR 


997 


ei2474 


«!42737 


177677 


01 2620 




BIC 


l*C<TIE>,QTPIE 


jCI-EAR kUl> BUT TX IE, 


998 


m2502 


042764 


000100 


000002 




BIC 


tTlG,XCSR(R4; 


jCLEAR TX IE tEVEN IF IT WASN'T SCI^ 


999 


*12Sl«l 


012766 


012SSkl 


000002 




HOV 


tENTSR>2(SP) 


I SET FOR RETURN IF SW 1431 


l(l)0«) 


fl2516 


9100 37 


013362 






MOV 


R0,SAVR0 


;SAVE REGISTER 


icei 


ei2522 


0101 37 


013364 






MOV 


Rl.SAVRl 


ISAVE REGISTER 1 


I0ia2 


'J12526 


010237 


013366 






HOV 


R2,SAVR2 


ISAVE REGISTER 2 


1003 


l>i2532 


»il0337 


013370 






HOV 


R3.SAVR3 


I SAVE REGISTER 3 


t0«4 


412536 


010437 


013372 






MOV 


R4,SAVR4 


iSAVE REGISTER 4 


100S 


P12542 


B10537 


013374 






HOV 


R5,SAVR5 


tSAVE REGISTER 5 


1 0(1)6 


Iil2546 


a(»e207 








RTS 


PC 


1 RETURN TO CONTROL PROGRAM 


1007 


















1008 


012550 








ENTER 1 








l»t0y 


















1010 


»12554 


013701 


013364 






HOV 


SAVPliRl 


i RESTORE Rl 


1011 


U12560 


B13702 


013366 






MOV 


SAVR2,R2 


;RCSTORE R2 


1012 


CI12S64 


013703 


013370 






HOV 


aAyR3«R3 


J RESTORE R3 


1013 


?12570 


013704 


013372 






HOV 


SAVR4«R4 


(RESTORE R4 


1014 


012574 


013705 


013374 






MOV 


8AVR5,R5 


(RESTORE RS 


1015 


el2600 


f 12737 


177777 


013376 




MOV 


#•1, DELAY 


1016 


012606 


053764 


012620 


000002 




BIS 


QTpIE,XCSR(R4) 


(IF ORGINALLY SETi set TX IE 


1017 


412614 


B00177 


000560 






JHP 


• BACK 




10|8 


Bl262il 


000000 






QTPIEt 


000000 






1019 


















1023 


















1021 


















1022 










1 •«»••*»»•»•••«•••••••**«*»*«•»*«• 


1023 










1 


SUBROUTINE TO CHECK 




1024 










J 


RECEIVES DATA, 




1025 










1 *••*«•*•••«»»*«••••#•••»«•*»«•««• 


1026 


012622 


013746 


011056 




TESIOl 


MOV 


EROBR, -(8?) 


jWAS THERE A RECEIVE ERRORT 


1027 


((12626 


B0l4t3 








BGO 


ISIDAT 


>BR IF NO 


1028 


0!263<) 


BJ2777 


020000 


j "6206 




BIT 


*BlTl3,f£SS 


jIKHIBIT PRINtOUTST 


1029 


f»1263b 


B01007 








BNE 


TSIDAT 


(BR IF YES 


103«» 


11 2643 


104400 


013022 






TYPE 


,MSS0 


(<15><12>THERE WAS A RECEIVE ERFOS, PBUFs 


1?31 


!<>1 2644 


604077 


176160 






JSR 


R0,»B2Oi6 


(PRINT CONTENTS OF RBUF 


1032 


P12650 


005746 








TST 


-tSP) 


1033 


B12652 


1 04400 


013103 






TYPE 


,MSGl 


(<1S><12» 


1034 


012656 


013701 


P11022 




TSTOATJ 


MOV 


IXDA, Rl 


(SETUP XMIT D^TA AODP 


1035 


(>12662 


01 3702 


0111^20 






MOV 


IRDA, B2 


(SETUP RCV DATA ADDP 


1036 


li»1266& 


122122 






SCAN4! 


CMPB 


CRD + i CS23 + 


(DATA OK T 


1037 


ei2670 


»ai77b 








BEQ 


8CAN4 


(BR IF OK 


1039 


912672 


123741 


01t0*0 






CHpa 


IX.TERM,.£i;i } 


(IS IT END Of t^Th 


1039 


812676 


001447 








BEQ 


TESTDX 


|BR IF YES 


1043 


n 2700 


122742 


{5^10002 






CMPB 


fa*2(-tF2) 




1041 


•12704 


001005 








EHE 


2t 




104 2 


»t?706 


010237 


Pit27!,4 






HOV 






!<»*3 


«!27S2 


1 S)«40£? 
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PAGKl 0823 





P 1 27 1 4 


0')0C!0«^ 






1S« 


, WORD 









012716 


e-'e4 3 7 








BR 


ttstdx 




10 46 


01 2720 








2S ; 








1 CI47 


ri 2720 


1 ^571 2 








TST9 


(P2) 




i 48 


t»l ^772 


3!*! 435 








BEO 




;BB IF YES 


] 049 


SI 2724 


1 22721 


000177 






CMPB 


»i77» CRn + 


jIS IT FILL CHAP? 




t$1 27 30 


tf01756 








BtQ 


5CAN4 


fBR If YES 




0127 3 2 


S905 301 








DEC 


Ki 


s BACKUP 


1*152 


«12734 


1 22722 


000177 






Cl'PB 


#177» CR2)+ 


;IS IT FILL? 


11*5 3 


el 2740 


001752 








BEO 


8CAN4 


jBR IF YES 


1054 


91 2742 


000243 






SCAN5I 


NOP 




;DATA ERROR 


1 355 


ei 2744 


a32?77 


020000 


176072 




BIT 


#B1T13.9SWB 


jINHIBIT PRINTOUTS 


HS56 


I- 1 2752 


901^16 








BNE 


DERB 


>BR IF YES 


1 057 


'12754 


1 04400 


013106 






TYPE 


,MsG2 


;<15><12>BECEIVE0 DATA s <15><12> 


1 058 


t<t276tf 


f 1 1737 


01 1020 


012770 




MOV 


IRDA, RDAX 


ISETUP DATA AORESS 


1059 


el2766 


1 44400 








TYPE 




JPBINT RECEIVED DATA 


IHftiit 


in2770 


If 00000 






POAXI 







^RECEIVED DATA ADOP, 


1061 


B12772 


1 04400 


01 3133 






TYPE 




;<15><12>DATA SHOULD BE<15><12> 


1 ^6 j 


pi 2776 


01 3737 


011 022 


01 3006 




MOV 


IXDA, .,+10 


; SETUP ADOR, 


1063 


01 3004 


1 04400 








TYPE 




iPRINT GOOD DATA 


1 064 


bl 3006 


0l 1 022 








IXDA 






1 065 


1^1 301 


11110 3 






DERRI 


Hove 


(ROfRS {SETUP 


XHIT DATA 


1066 


191 30 1 2 


1 1 4202 








MOVB 


-tB2),R2 


ISETUP RCV DATA 


1067 


^1 301 4 


1 04007 








HIjT+7 




jDATA ERROR HALT 


1066 


il 3016 


005726 






TE!STDX| 


TST 


(SP) + 


J POP STACK 


1 064 


01 3020 


300207 








RTS 


PC 


jRETURN FROM SUB/BOUT 


1 070 
1071 


i?t 3022 


005015 


044124 


051105 


MSG0I 


.ASCIZ 


<15><12>/THERE 


WAS A RECEIVER ERROR. REGISTER (SEL 23 "/ 


f 1) 


0<1 3103 


015 


000012 




MSGII 


.ASCIZ 


<15><12> 




( 1 3 


L- 13 106 


005015 


042522 


042503 


MSG2I 


.ASCIZ 


<15><12>/BECEIVED DATA « /<15><12> 


( 1 ) 


>!>13133 


015 


042012 


052101 


MSG3I 


.ASCIZ 


<15><12>/DATA SHOULD BE/<1S><12> 


(1) 


F»1315b 


B0S015 


046X20 


040505 


MSG4I 


.ASCII 


<15><12>/PI'EASE 


MAKE CONNECTION CDIAL NUMBER),/ 


(1) 


013225 


015 


053412 


042510 




.ASCIZ 


<15><12>/WHEN CONNECTION COMPLETE? HIT CONTINUE SWITCH ,/< 15>< I 2> 


(1) 


t>l33l0 


005015 


046120 


040505 


MSGSl 


.ASCIZ 


<15><12>/PLEASE 


MAKE CONNECTION (DIAL NUMBER3 , /<15>< 1 2> 


cn 










.EVEN 








(1) 


C13362 


030000 






SAVR0I 









1B72 


013364 


000000 






SAVRli 









J073 


ttl33b6 


?00000 






SAVR2i 









1074 


013370 


0000^0 






SAVR3i 









1075 


»-13372 


000000 






SAVR4I 









1076 


el3J74 


900HI00 






SAVR5I 


e 






1077 


ei3376 


00000*) 






DELAY! 









1b7 8 


(41 3 400 


«30e00 






BACKl 









1079 


CI 3402 


(•30000 






STOP: 









10ft0 
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IH28 














1081 












J *•»»»••••••«»«•••«••»•••••*••*»»•••»**«•»•»«*•«««••••••«»•«**•« 


10«2 












> 


TRANSMIT INIT ROUTINE 




if S3 














>>#«#««>•«•»•#••«»•«••«•••••••«•«•« 


1084 










06301?! 










1085 


613404 


e05737 


013402 




06400 


STARTXl 


TST 


STOP 


JFIRST TIME HERE? 


1086 


013410 


^01005 






06500 




BNE 


1* 


jBR IF NOT 


1087 


-513412 


1 34400 


013156 




06600 




TYPE 


,Msa4 


jTYPE CONNECT MESS 


1098 


013416 


000000 






06700 




HALT 






1089 


K13420 


tf05137 


013402 




06800 




COM 


STOP 


;SET FIRST TIME FLAG 


1090 


fl3424 


005737 


016744 




06900 


1$: 


TST 


BASEFG 


;BASE AND CNTL IN ALL DONE? 


1091 


013430 


001775 






07000 




BEO 


1( 


jBB IF NO 


1092 


013432 


005037 


016744 




07100 




CLR 


BASEFG 


;CLEAR FLAG 


1093 


013436 


005037 


016746 




07200 




CLR 


TEMPI 


;GET SET TO DELAY 


1094 


013442 


012737 


000025 


016750 


07300 




HOV 


I2S>TEHP2 


t 


1095 


iai3450 


f?62737 


000001 


016746 


07400 




ADD 


»1, TEMPI 


tINC DELAY 


1096 


<«t34S6 


001 374 






07500 




BNE 


.•6 


t 


1097 


013460 


PI05337 


016750 




07600 




DEC 


TEMP2 


tDEC DELAY COUNTER 


1098 


013464 


001371 






07700 




BNE 


.-14 


iBR IF NOT DONE 


1099 


913466 


153714 


000140 




07800 




BISB 


«140,(R4) 


lASK FOR XMIT BUFFER 


1100 


el3472 


000207 






07900 




RTS 


PC 


{RETURN 
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08000 
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RECEIVE INIT ROUTING 
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1105 










08200 










1106 


f 13474 


[;«5737 


013403 




08300 


STARTRl 


TST 


STOP 


fFIRST TIME HEBE? 


1107 


1113500 


001004 






08400 




BNE 


t( 


jBR IF NOT 


1108 


013502 


104400 


013310 




08500 




TYPE 


,MSC5 


;TYPE CONNECT MESS 


1109 


«il350& 


005137 


013402 




08600 




COM 


STOP 


ISET FIRST TIME FLAG 


1110 


013S12 


805737 


016754 




08700 


1(1 


TST 


RFLAG 


|HAS AN rEC BUFFER ALREADY BEEN GIVEN 


nil 


B13516 


001007 






08800 




BNE 


2( 


|BR IF YES 


1112 


'»13520 


605737 


016744 




08900 




TST 


BASEFC 


{BASE AND CNTL IN ALL DONE? 


1113 


k*13524 


00J772 






09000 




BEQ 


i( 


|BR IP NO 


1114 


l»13536 


005037 


016744 




09100 




CLR 


BAsEFG 


{CLEAR FLAG 


1115 


el3532 


152714 


(J00144 




09200 




BISB 


(144, (R4) 


{ASK FOR REC BUFFER 


1116 


013536 


005037 


016754 




09300 


211 


CLR 


RFLAG 


{CLEAR FLAG 


1117 


t;13542 


000207 






09400 




PT8 


PC 


{RETURN 


1118 










09500 










1119 
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SERVICE ROUTINE 
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1122 










09700 










1123 


013544 


032714 


000002 




09800 


XISRI 


BIT 


(BIT1,CR4) 


{BASE REQUEST? 


1134 


••13550 


P01426 






09900 




BEO 


t( 


{BR IF NO 


1125 


V13S52 


033714 


000004 




10000 




BIT 


(BXT2«CR4) 


{IS IT REALLY A SHUT DOWN? 


1126 


413556 


301403 






10100 




BEO 


9( 


{BR IF NO 


1127 


013560 


P04737 


014020 




10200 




JSR 


PC, 4$ 


{YES, CLEAR RQI 


1129 


013566 


012764 


016776 


000004 


10400 


9(1 


HOV 


(BASE,4(R4} 


{LOAD BASE ADDRESS 


1130 


013574 


005064 


000006 




10500 




CLR 


6(R4} 


{CLEAR SEL 6 


1131 


til3600 


M5737 


016742 




10600 




TST 


RESUME 


{RESUME FLAG SET? 


1132 


013604 


001403 






10700 




BEQ 


81 


{BR ir NOT 


1133 


013606 


012764 


010000 


0<50006 


10800 




HOV 


#BIT12,6(R4) 


{OTHERWISE SET RESUME BIT 


1134 


013614 


004737 


014020 




10900 


B(l 


JSR 


PC,4( 


{CLEAR RQI 


1135 


013620 


152714 


000141 




11000 




BISB 


(141, CR4) 


{ASK FOR CNTL I 


1136 


013634 


^00002 






11100 




RTI 




{RETURN 
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01 2764 


002000 


000006 


12200 
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01 4020 




12300 




■»1 3704 


91 J737 


1 77777 


016/44 


! 2400 


t » SiS 


f1l37l2 


330002 






1^500 


1151 


ei3714 
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000004 




1 2600 


1152 


01 3720 


301 416 






1 2700 


i 153 


?i3722 


(? V ?7i5r? 


340000 
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1154 


S13726 


01 3764 


011 020 


000004 


12900 


1 1 55 


313734 


01 376 4 


01 1064 


000006 


! 


1 1 55 


bl 3742 


0047 37 


1 4020 




13100 


1157 


81 3746 


6127 37 


1 77777 


016 744 


1 Was 


1158 


m 3754 


000002 








1 1 59 


!»1 3756 


(342700 


1 00000 






1 ibi 


»13762 


012737 


177777 


_ 

016 752 


1 3500 


1 161 


fsl 3770 


013764 


01 1022 


000004 


1 3600 


1162 


»13776 


01 3764 


01 1062 


000006 


1 3700 


1163 


01 40614 


004737 


01 4020 




1 3800 


1164 


Bt 40! 


0127 37 


1 77777 


0167 44 


! 


1 1 65 


01 401 6 


000002 






14000 


1 166 


^ 1 4020 


142714 


000040 




! «if > 


1167 


b1 4024 


1 3571 4 






1 4200 


1 1 68 


(#14026 


! 00776 






* 4300 


1 169 


0! 4030 


000207 






i 4400 


1 1 7a 










1 4500 


1171 












1 172 












1173 












1 174 










1 4700 


1 1 75 


el 4f 32 


032764 


000001 


000002 


14800 


1 176 


^•1 4040 


031 453 






X 4900 


1177 


«>t4042 


005737 


01 6742 




15000 


1178 


Bl 4046 


001 4 1 3 






15 100 


1 179 


91 405^ 


9'2764 


e0l 000 


pi?0 ^ ?i ^ 


15200 


118^ 


P14056 


001 007 






J 5 J W H 


1)81 


<»! 4060 


1 * 77 6 4 


000207 


0^0002 


1 5400 


1 1 B2 


0l 4066 


!1 1 2 7 3 7 


1 77777 


0167 44 


1 3500 


1 1 83 


t>\ 4074 


000002 






15600 


1 184 


014076 


022764 


000004 


0^*0006 


15700 


1 1 85 


'*14104 


<»01003 






15800 


1186 


ffl 4106 


1 527 1 4 


000 141 






1187 


•114112 


i'0J4 32 






16000 


1188 


al4114 


016437 


030004 


011054 


16100 


lli»9 


91 4132 


i)t6437 


0P0006 


0nC!56 


16200 


119JI 


014130 


1 04400 


016366 




16300 


1191 


014114 


«13746 


011054 




16400 


1192 


t!l4l4^ 


»04P37 


015770 




16500 



7S I 
6S I 
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1 - r T 1 f 4, ' 


- N ; ij i H E Q u S i . 


"> t Q 






ail 






BEO 


5 § 




CtR 


S ( P 4 ) 








■t-WlViinUE. 


B ]' T 






BEO 


1 % 




MOV 


* P 1 I i tP 1 A 1 i .V 


^ii'}34)jfiEX SEC MODE AND HALF DUPl^EX 


BR 


b s 


'H/i* i inuEf 


MOV 






J SB 


PC f 4S 


iCIiEAR RQI 


MOv 






BTI 






B aT 


f BI i. 2 f 1. r».t( / 




3E0 


1$ 


1 OK J r Ny 


SIC 




tCLEar receive flag bit 


MOV 


X RD A f 4 C ) 




MOV 






JSH 


PC » 4S 


B Fit D DAT 




jt OS J J BA SEFG 


J SET FLAG 


BTI 






B IC 


8 XF^^'Gf STAT 


iCLEar xmi? flag bit 




(J • I # XFltAG 


fSET XMiT FLAGCFOP TIMEOUT ERROl 




■L A U H f ^\ Kfl J 




MOV 


T V iJf' a t ^ A\ 




JiSR 


PC# 40 


SCLEAR PQl 


MOV 


ft-lf BASEFG 


jSET FLAG 


RTX 




1 RETURN 


BICB 


140* CR43 


jCLEAR ROl 


TSTB 


CP4) 


IWAIT FOR ROI TO DROP 


BMI 


a »3 


|BR IF STILL SET 


PTS 


)?C 


jRFTURN 
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J OUTPUT SERVICE ROUTINE 

f •»»••»♦•♦«♦♦»♦"»»»♦»♦•»♦•»♦«••»♦•»•»♦♦••»♦»♦•»•*»•«♦•♦♦•»♦»*♦♦•♦ 

RISRI BIT I8IT0,2(B4) jERROPT 

8EQ 18 J BR If NO 

T5T RESUME jRESUHE FLRG SET? 

BEQ 56 !BR IF NOT 

C1P »BlT9,6(a4) jIS PROC. ERROR BIT SET? 

BNE 5S |BR IF NOT 

SICB »2g7,2tR4) iCltk^ DONE 

MOy l-t»B»SEFG jSET SASEFG 

BTI jRETURN 

5S| CHP #4,6CR45 jOVERUN ERROR? 

BNE 3S |BR IF NO 

BISB tl44ftR4) iREQUEUE XMIT BUFFER 

BR 4« 

3SI MOV 4CP4),ERCSR }S»VE SEL4 

MOV 6CR4)iERDBR jSAVE 8EL6 (ERROR BITS) 

TYPE tDMCEB jERROR MESSAGE 

MOV ERCSR,.!aP3 fPUSH SEt4 ON STACK FOR lYPEOUT 

JSP P0,«B7OCT TlYPE IT OUT 



D"C1 1 ITEP OVER? J.Y 


MACYll 


3a(l?46:) 


1 1-JtJ 


.-77 121 J9 PAGE 


37 




OIOMO.P 


1 19 


-MAY-77 


1 1 128 












1193 


W14144 


006 






16600 


.BYTE 


6 




1194 


(•14145 


001 






16700 


.BYTE 


1 




1195 


;*1414b 


1 34400 


016562 




16800 


TYPE 


, SPACES 


I INSERT 3 SPACES 


1196 


^14152 


ijl 3746 


01 1056 




16900 


MOV 


ER0BB,-(SP3 


JSPUSH SEL6 ON STACK FOR TliPEOUT 


1197 


i*14156 


004037 


015770 




17000 


JSB 


R0,S82OCT 


jTYPE IT OUT 


1198 


914162 


006 






17100 


.BYTE 


6 




1199 


014163 


.(01 






17200 


.BYTE 


1 




1700 


014164 


B''5777 


174654 




17300 


TST 


»SWR 


iCHECK BIT IS 


1201 


U14173 


1 00001 






17 400 


BPt- 




ISKIP HALT IF ■ 


1202 


014172 


1^150000 






17500 


HAibT 




)HALT If SWB15 ■ 1 


1203 


fl4174 


VtkiS037 


0Ut'56 




17600 


CLP 


erdbb 


}CLB EBDBr LOCATION 


1204 


<si] 4200 


1 42764 


000207 


000002 


17700 


411 BICB 


i207,2CR4) 


(CtEAR DONE 


1205 


1314206 


000002 






17800 


PTI 




! RETURN 


1 2>)6 


M 1 4 < 1 


(> J 2 / 6 ■« 




^ *^ £ 










1207 


t,'1421b 


3»"t 406 






1S000 


BEO 


2 i 


jBR IF NO 


1208 


<»14220 


052700 


040000 




18100 


BIS 


IRFtCjSTAT 


jSET REC DONE FLAG 


1209 


»14224 


1 42764 


000207 


000002 


18200 


BICB 


»2a7,aCP4) 


tCLEAB m»t 


1210 


i;l4232 


e00002 






18300 


RTI 




; RETURN 


1211 


•114234 


P52700 


100000 




18400 


2$l BIS 


»Xrt,G,STAT 


jSET XMIT DONE FLAG 


1212 


1114246 


SJ.15037 


3167S2 




18500 


CLB 


XFLAO 


fCLEAR XFLftG 


1213 


014244 


142764 


300207 


000002 


18603 


BICB 


»207.SCR4) 


iCLEAR DONE 


1214 


014252 


000002 






18700 


RTI 




jHETURN 


1215 










18800 








1216 










18900 








1217 
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1218 












J ENTER mm IF BOOT MODE 


WAS SELECTED 


1219 
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1720 










19100 








1221 


014254 


032737 


00300S 


0nei2 


19200 


aOOTi BIT 


tBlT10lBlT9,PAR»m iOETERmINE WHICH BOOT MODE 


1222 


U14262 


081413 






19300 


BEq 


AUTORG 


>BR IF AUTO MODE, OPICINATINO STATION 


1223 


814264 


032737 


002000 


011012 


19400 


BIT 


IBITie,FS.RaMl 




1224 


014272 


001522 






19500 


BEQ 


AIJTBOO 


>BR IF AUTO MODE, BOOT STATION 


1225 


014274 


»32?37 


031000 


pi 1012 


19500 


BiT 






1226 


rai4302 


09154.J 






1970a 


EKa 




fBR I? MANUAL MODE, ORIGINATING STATICK 


1227 


«1 4304 


! »44a^ 


01656* 




19800 


TYPE 


,»COMS@ 


iHRNUAL MODE, BOOT STATION 


1228 


?M43la 


!»-*3!7 77 








BR 




fWAIT FOR MANUAL BOOT 


1229 










20@08 








1230 














1231 












I H'JTO' 1ST 






1232 
















1233 










2020.'? 








12.U 


0143U 


P12701 


3S5S03 






J""""!?! MOV 




f'jOAP HOPt "lESSASE MITH 


1235 


0S 4316 


H 3721 


0110S2 






MOVB 


PftBANl,<Ri5+ 


iPifr-i <V ?OUR TIMES 


1236 


Hi 433? 


! 1 1 7 3 1 


« ! 101 J 








PAR.IMS . <Bt 3 '■ 




123? 


014326 


1 5 37^1 


011012 






lift vs. 






1218 


H14 3J2 


1 1372! 


01!«.U 








Pf.piH? tSi 


1 


12 39 


i»H 336 


Rfl57.~i7 


ffl 1 Si 1 4 4 






-1 - 




T$ "J^r ^ESl'KST DOMS.? 


1 240 


014142 








3?§00 








!24t 


i*t*Jl4 


a0S037 


0" 674* 




7%m<e 


Cf.S 




("TiR %0C!< rt*G 


1243 


»1 435s« 


ns J7 37 


002 409 




41 \ «P 


MOV 






1 24 1 


51! 4356 


rt8 27i 4 






J! 23^ 






{i'f. roB CNTL I« 


1244 


»M3(2 


Bl''''"? ?7 






7i - '■'I 


\t:' TST 


r 


! r , "• ?h IN DONE? 


! 241 


91 iihh 












It 


■ - '.'a 


1 J 46 


St 




1 S 7 4 n 




M 5?f 











t)1440t 


fi057J7 


P16744 


im 


ni441d 


IKI177S 




1751 


iM4412 


ue5ii37 


j«l 6744 


S?52 


«l44i6 




!* ! 6 7 5 2 


i2Si 


•ti44a3 


8(t?7J7 


k''l$602 


I2S« 


W1 443CI 


012737 


0iij0iite5 


12Sf 


V14436 


1^527) 4 


0001 4P 


i2S6 


i<i4442 


1<1 2737 


000025 


1 2?7 




0iJ5«'37 


013376 


1258 


^14454 


31*5737 


016754 


1259 


«)|4t60 


001(*l 2 




t26S 


»!446a 


085337 


013376 


1261 


»t4466 


001373 




1263 


i#t4470 


905337 


016746 


12«] 


»14474 


001 367 




1264 


«14476 


005737 


016752 


1265 


014502 


001 344 




1266 


014504 


000000 




1267 








126e 








1269 








127U 


014506 


012701 


01S610 


1271 




01 3703 


011021^ 


1272 


014516 


005003 




1273 


•14530 


1 331 32 




1274 


1014532 


0013(7 




1275 


(»14524 


005303 




1276 


014536 


032703 


000^04 


1277 


014532 


B01372 




!?TB 


gl 45 34 




a 1 C JAA 


1279 








1280 








)2«1 








1282 








1283 








1284 


014540 


005737 


016744 


1285 


'414S44 


001775 




1286 


1514546 


00S037 


016744 


1287 


014552 


»05e37 


01676n 


1289 


014556 


005037 


016754 


!?89 


9!4S62 


"527! 4 


0^0144 


129k> 


014566 


i90S737 


01676I,* 


1291 


014572 


001362 




1292 


014574 


005737 


016754 


1293 


014600 


Bi>1357 




1294 


••14602 


0!»0771 




1295 








1296 








1297 








1298 








1799 








1300 


014604 


005037 


016760 


nei 


1ttl4610 


005037 


016756 




014614 


005737 


016744 


1303 


ift4620 


001775 




1 Hsi 


el4622 


005?37 


016744 



31800 


311 


TST 


SAscrs 


Jl5 RfQtiEST DOUtl 


21900 




BES 


31 


|BR IF NO 


32000 




Clf( 


BASEf G 


fCLEAR LOCK FLAG 


22!Pd 




CLB 


xriAS 


fCLEAR XHIT FLAG 


22300 




MOV 


#M0Ptt8Efj4 


rSEf FOR OMC tiOAC 


33300 




MOV 


•StSEi6 


{SET FOP DMC LOAD 


22400 




BIS 


• U0i (R4) 


lASK FOR JSMIT SS/CC 


23SSS0 




FOV 


iS, TEMPI 


JSET UP DELAlf COUNT 


33600 




ChK. 






32700 


3(1 


TST 


RFl/AG 


yRECEIVEO ANYTHING} 


33100 




BNC 


4t 


IBR IF YES 


33900 




DEC 




;QSC DELAii COur<TER 


23000 




BNE 


31 


IWAIT TO RECEIVE 


33100 




DEC 


TEMPI 


(DEC SECOffO COUNT 


33300 




BNE 


31 


(BR IF NOT DONE DELAY 


33300 




TST 


XfLAO 


rWAS XMIT COMPLETED 7 


23400 




BKE 


31 


)BR IF ySIS, SEND MOPi AGAIN 


33500 




HALT 




lERROPf MOPI WAS NEVER SENT 


33600 










23700 




1 CHECK 


TO SEE IF RECEIVED MESSAGE IS M0t>3 


33800 










33900 


411 


MOV 


IM0P2>R1 


(STARTING ADDRESS OF <*0t>2 


34000 




MOV 


IROAfRS 


(RECEIVE BUFFFR ADDRESS 


34100 




CLR 


R3 


(CLEAR COUNT 


34300 


511 


CMPB 


CPi)*»(R2)* 


(COMPARE DATA 


34300 




BKE 


11 


(IF NOT M0P3 TRY AGAIN 


34400 




INC 


R3 


(DATA OK, BUMP COUNTER 


34500 




CHP 


«4(R3 


(DONE ifEIf 


34600 




BNE 


51 


(BR IF HO 


24703 






PC, MPS 


(IT WAS nOP3, 3C SEND nOP} 



34800 
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( AUTOMATiC MODE BOOT STATION 
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3S000 










35100 


AUTBOOl 


TST 


BASEPS 


(BASE COMPLETED? 


35300 




BEO 


autboo 


(BR IF NO 


25300 




CLR 


BASEFG 


(CLEAR LOCK FLAG 


35400 




CLR 


MFLAG 


(CLEAR MAINT FLAG 


25500 




CLR 


RFLAG 


(CLEAR REC FLAG 


35600 




SIS 


MFLAG 


lAfiK FOR REC RA/CC 


35700 


111 


TST 


(ARE WE IN MAINT M0DE7 


25800 




BNE 


AUTBOO 


(BR IF YES 


35900 


311 


TST 


RFLAO 


(DID WE RECEIVE ANYIHINCI 


36000 




BNE 


autboo 


(VES REQUEUE pECEIVE BUFFER 


36100 




BR 


11 


(KEEP ON TRUCKIN' 


36200 











( HAHUAl MODE ORGINATING STATION 

)•••«•#••••»«# •*••«*•**••««««**#*••••••••»•*••*•«•«#•«**«*«*•«** 



36400 








36900 


MANORGi CLR 


MFLAG 


(CLEAR MAINT FLAG 


36600 


CLR 


SFLAG 


(CLEAR DDCMP START 


36700 


711 TST 


BASGFG 


(BASE LOADEDt 


36800 


BCQ 


71 


(BR IF NO 


26900 


CLR 


BAsEFG 


(RESET FLAG 



DMCl I ITEP OVERLAY 



MACYll 30(1046} lt-JUL>77 12139 PACE 39 



PAGtl »e2f) 



DZDM0.P11 18 


-MAY-77 


11128 






1105 


1914626 


»95«'37 


016764 




37000 


1 306 


014632 


052714 


00014] 




37100 


13tf7 


» 14636 


905737 


016744 




27300 


1308 


ni 4642 


001775 






27300 


1309 


Hi 4644 


015037 


016744 




37400 


1310 


P14650 


005iit37 


016754 




37500 


1311 


014654 


053714 


000144 




27600 


1312 


A14660 


0057J7 


016756 




37700 


1313 


»>14664 


001437 






27800 


1)14 


(114666 


912714 


040000 




37900 


) 315 


i)14672 


005714 






28000 


1316 


014674 


1 00376 






38100 


1317 


ni4676 


P05037 


016756 




38300 


1318 


014702 


005037 


016744 




38300 


1319 


•)14706 


052764 


000100 


000002 


38400 


1320 


014714 


052714 


000143 




38S00 


1)21 


1*14730 


0*5737 


016744 




38600 


1322 


t<14734 


001775 






38700 


1 323 


014726 


005037 


016744 




38800 


1)24 


014732 


005037 


016764 




38900 


1375 


H14736 


053714 


000141 




39000 


1326 


nl4742 


005717 


016744 




39100 


iSi7 


Vi4746 


0tfi77S 






29200 


1128 


014750 


005037 


016744 




29300 


1329 


B14754 


005037 


016754 




39400 


1330 


«14760 


053714 


000144 




39500 


1331 


'414764 


005737 


016760 




39600 


1332 


l»14770 


fl!»1733 






39700 


1333 


B14772 


012714 


040000 




39800 


1334 


014776 


005714 






29900 


1335 


015000 


100376 






30000 


1336 


015003 


B05037 


016744 




30100 


1)37 


I«1S006 


H52764 


000100 


000002 


30300 


1338 


015014 


052714 


000143 




30300 


1 339 


915030 


005737 


016744 




30400 


1340 


015034 


eBl775 






30500 


1341 


filS036 


005037 


016744 




30600 


! 342 












1343 


015040 


092714 


000141 




30800 


1344 


015044 


005737 


016744 




30900 


1345 


01^050 


001775 






31000 


1 346 


015092 


005037 


016744 




31100 


1347 


tflS0S6 


005037 


016754 




31300 


1348 


015063 


»52714 


000144 




31300 


1349 


015066 


•05737 


016754 




31400 


1)50 


015072 


001775 






31500 


1351 










31600 


1352 










31700 


1353 










31800 


1354 


015074 


t>12701 


015610 




31900 


1355 


415100 


013702 


011020 




33000 


1356 


015104 


00500) 






32100 


1357 


915106 


122122 






33200 


1358 


015110 


0191343 






33300 


1359 


P15113 


P05303 






32400 


1360 


i>t5ti4 


02270) 


000^04 




325en(f 



211 



911 



1011 



CLR 


8EL9 


(LOAD 8EL6 FOR FULL>DUPLEX 


BIS 


li41>(R4) 


(ASK FOR CNTLI 


TST 


BASCFG 


(CNTLI DONET 


BEQ 


3* 


(BR IF NOT 


CLR 


BASEPG 


(RESET FLAG 


CLR 


RFLAG 


(CLEAR RECEIVE FLAG 


BIS 


•144, CR4) 


•ASK FOR REC 8A/CC 


TST 


SFLAG 


(DDCMP START ERROR? 


BEO 


48 


(BR IF NO 


MOV 


IBIT14. (R4} 


(INITIALIZE DMC 


TST 


(R4} 


(RUN SET? 


BPL 


21 


(BR IF NO 


CLR 


SFLAG 


(CLEAR FLAG 


CLR 


BASEFG 


(CLEAR LOCK FLAG 


BIS 


1100, 3(R4} 


(SET INT ENABLE 


BIS 


*143,(R4) 


|ASK FOR BASE 


TST 


BAsCFG 


(BASE DONE? 


BEQ 


38 


(BR IF NO 


CLR 


BASEFG 


(CLEAR FLAG 


CLR 


8FL6 


(SET UP FOR FULL-DUPLEX 


BIS 


*141f CR4) 


(ASK FOR CNTLI 


TST 


BASEFC 


(CNTLI FINISHED? 


BEQ 


98 


(BR IF NOT 


CLR 


BASEFG 


(CLEAR FLAG 


CLR 


RFLAG 


(CLEAR RECEIVER FLAG 


BIS 


*144,(R4) 


(ASK FOR REC BA/CC 


TST 


MPLAG 


(ARE WB IN MAINT MODE? 


BEO 


18 


|BR IF NO 


MOV 


MIT14,(R4} 


(INITIALIZE DMC 


TST 


CR4) 


(RUN SETT 


BPL 


108 


(BR IF NO 


CIiR 


BASGFG 


(CLEAR LOCK FLAG 


BIS 


1100, 2(R4] 


(SET INT lilNABLE 


BIS 


*i43,(R4} 


(ASK FOR BASE 


TST 


BASEFG 


(BASE DONE? 


BEQ 


118 


(BR IF NO 


CLR 


BAsCFG 


(CLEAR FLAG 




i i^vvt »£L6 


jMAiHT, MODE (piCP) 


BIS 


•141«(R4) 


(ASK FOR CNTLI 


TST 


BAsCFG 


(CNTLI FINISHED? 


BEQ 


138 


>BR IF NOT 


CLR 


BASEFG 


(CLEAR FLAG 


CLR 


RFLAG 


(CLEAR RECEIVER FLAG 


BIS 


*144,(R4} 


(ASK FOR REC BA/CC 


TST 


RFLAG 


(HAVE WE RECEIVED ANYTHING? 


BEQ 


58 


(BR IF NO 



(CHEC« TO SfE IF RECEIVED MESSAGE IS M0P2 

MOV IM0P2,Rl (M0P2 STARTING ADDRESS 

MOV IPDA,R2 (PECEVE BUFFER ADDRESS 

CLP R3 (CLEAR COUNT 

CMPB CRl)+,(R2)+ (COMPARE DATA 

BNE U8 (IT ISN'T MOP3, TRY AGAIN 

INC R3 iDATA OK, BUMP COUNT 

C«P •4,P3 ;OONE YET? 
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1 36 1 




0^1 3 72 






32600 




B>^E 


6$ 


(BB IF NO 


1362 


1 Si ^0 
910142 


004737 


1 5506 




327f^0 




JSP 


PC, ►'P3 


;IT WAS M0P2, SO SEND OUT M0P3 


1363 










32800 










1364 












■ 








1 365 












1 •*•••< 


INPUT 


INTERRUPT SERVICE 


ROUTINE (ROOT MODE) 


1 366 
1 367 










3 3000 










} ??? 


- ^ 


?>327 1 4 


000002 




33100 


HSRl 


BIT 


tBlTl , CR4) 


;IS IT A BASE REQUEST? 


1 369 


ft 1 51 19 


Bf^l 4 1 3 






33200 




BEQ 


It 


}N0 


t 370 




01 2764 


016776 


000004 


33300 




MOV 


tBASE>4CR4) 


IVES, LOAU base ADDRESS 


1371 


PI 5 1 42 


PvS VD ■* 


ri V K7 y Q 




33400 




CIjR 


6CR4) 


;CLEAR SEli6 


1372 




0047 37 


1 5300 




33500 




JSR 


PC, 4$ 


;CLEAR RQI 


137 3 


&1 5 1 52 


01 2737 


1 77777 


016744 


33600 




MOV 


««l,BAseFG 


;SET FLAG 


137 4 




0^0002 






33700 




RTI 


«BIT0, (R4) 


jRETURN 


1375 


f^l 5 1 62 


03271 4 


000001 




33600 


1(1 


BIT 


lis IT CNTL IN? 


1 376 




001 4 t 1 






33900 




BGO 


2$ 


;BR IF NO 


I 3 f ' 


415 1 7(^ 


fKt 3764 


016764 


000006 


34000 




MOV 


SGl,6,6(R4) 


|I<OAD SEL6 FOR CNTLI 






k»047 37 


01 5300 




34 100 




JSR 


PC, 41 


;CLEAR RQI 


1 379 


PI 


012737 


1 77777 


016744 


34200 




MOV 


•>1,BASEFG 


(SET FLAG 


1380 


1 cor*? 


Xt^Wv 






34300 




RTI 




(RETURN 


1381 


01^212 


P 3 27 1 4 


000004 




34400 


2$ 1 


BIT 


IBIT2, (R4} 


;IS IT RECEIVE REQUEST? 


1 3P2 


6^1 52 1 6 








34500 




BGQ 


31 


;N0 


138 3 


|i?l 5220 




nt 1 1 olOa 

17 1 \ VfM,\0 








MOV 


IpqA,4(R4} 


|Y£S, LOAD REC BA 


1 3^4 


i>l 5226 


01 2764 






34700 




MOV 


#10f 6(R4) 


jCC 


I 3*^5 


'^15234 




ate "Kaa 




34800 




JSR 


PC, 4* 


{CLEAR RQI 


1 386 


fi!l 524^ 


0127 37 


177777 


- 

016 4 


34900 




MOV 


l>j ,BASGFG 


J SET FLAG 


1387 


flfl 52 46 


|)>'il0002 






35000 




RTI 




^RETURN 


1 388 




®J 




0^0004 


35100 


311 


MOV 


SEL4f 4(R4) 


jXHIT REQUEST, LOAD XMIT BA 


I 39^ 


t*l 5256 


01 3764 


01 6764 


000006 






MOV 


SGI,6,6(R4} 


;XNIT CC 


1 39iS 


1^1 5264 


034737 






35300 




JSR 


PC, 41 


(CLEAR RQI 


1 39 1 




0l 2737 


177777 


016744 


35400 




MOV 


*-l,BASEFG 


{SET FLAG 


1 392 




AMAH JlO 






35500 




RTI 




(RETURN 


139 3 


1 5 loa 




aciaci da 
1010190 ti? 




35600 


4$l 


BICB 


*40*(R4) 


(CLEAR RQI 


1 394 


fi? 1 5 304 


J 0571 4 






35700 




TSTB 


(R4) 


(ROI CLEAR? 


1 395 


fe*'! 5 306 


1 0)£}776 






35800 




BMI 


.-2 


(NO 


1 396 


? 1 5 3 1 


000707 






35900 




RT8 


PC 


(RETURN 


1397 










36000 






















1 •»•«•**«•••*»•••»•»••«•**•••»•••*•••«••••*•••«•«*•••**»*««*•••* 


! lOQ 












1 


OUTPUT 


INTERRUPT SERVICE ROUTI»E (BOOT MODE) 














;•••••«•*•••««*•••«••«•••»«•«••«•*••••«•*••••«••••»•«•*«»«*•«••» 


i 401 










36200 










1 402 


5 3 1 2 


032764 


000001 


000002 


36300 


OlSRl 


BIT 


»B1T0,2CP4) 


(ERROR? 


1 4itf3 


&i 5 32id 








36400 




BEO 


3* 


(NO 


I 404 


Et 1 5 3 2 2 


B22 ' 64 


000010 


000(900 


36500 




CMP 


»10»6CR4) 


(YES, MAINT MODE ENTERED? 


1 405 


01 5 3 3 ''^ 


001 004 






36600 




BNE 


1* 


(NO 


1 406 


C^l 5 332 


01 27 37 


_ _ 


- 

01 6 '00 






HOV 


••l.MFLAG 


(YES, SET MFLAG 


1 407 


tfl5340 


(^00456 






36800 




BR 


51 


(RETURN 


1406 


"15342 


P72764 


0^0200 


0<i)00(il6 


36900 


Itl 


CMP 


*200>6(R4) 


jDDCMP START RECEIVED ERROR? 


1409 


PI5350 


001004 






37000 




BNE 


2* 


(NO 


1410 


«'15352 


012737 


177777 


el675() 


3710a 




MOV 


*.i,SFLAG 


(YES, SET SFLAG 


1411 


J15360 


i*30446 






37200 




BR 


51 


(RETURN 


1412 


015362 


016437 


(400004 


011054 


37300 


2*1 


HOV 


4(R4),ERCSR 


(SAVE SEL4 


1413 


015370 


l>lo437 


000006 


011^156 


37400 




MOV 


6(R4},ERDBR 


(SAVE SEL6 (ERROR BUS} 


1414 


fe»l5376 


104400 


016366 




37500 




TYPE 


,DHCER 


(ERROR MESSAGE 


1415 


("15402 


pi 3746 


011054 




37600 




HOV 


ERCSR,-(3P) 


(PUSH SEL4 ON STACK FOP TYPEOUI 


1416 


fH54e'6 


004037 


015770 




37700 




JSP 


R0,IB2OCT 


(TYPE IT OUT 
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11126 














M17 


(*1S412 


006 






37800 




.BYTE 


6 




141» 


H54J 3 


001 






37900 




.BYTE 


1 




1419 


■515414 


104400 


016562 




38000 




TYPE 


, SPACES 


(INSERT 3 SPACES 


1 420 


(SflS430 


pi 37 46 


011056 




38100 




HOV 


ERdBR,-C8P) 


(SPUSH SEL6 OS STACK FOR TYPEOUT 


1421 


»15424 


Bi)4037 


015770 




38200 




JSR 


R0,(B2OCT 


(TYPE IT OUT 


1432 


«15430 


(<06 






38300 




.BYTE 


6 




1 423 


al543l 


001 






38400 




.BYTE 


1 




1424 


*'15432 


005777 


173406 




38500 




TST 


»SHR 


(CHECK BIT 15 


1435 


»fl5436 


100001 






38600 




BPL 




(SKIP HALT IF > 


1426 


f«15440 


000000 






38700 




HALT 




(HALT IF SMR15 « 1 


1427 


ei6442 


9^5037 


011056 




38800 




CLR 


erdbr 


(CLR ERDBR LOCATION 


1428 


815446 


000413 






38900 




BR 


5* 


(RETURN 


1429 


015450 


032754 


000004 


000003 


39000 


3*1 


BIT 


*BIT2(3(R4) 


(RECEIVE DONE? 


1430 


015456 


001404 






39100 




BEQ 


4* 


(BR IF NO 


) 4ii 


Mi 3<i6t4 


»t2;j7 


1)77 n 


016)54 


J9200 




MOV 


f«l»RFLAG 


(SET RECEIVE FLAG 


14)2 


«!15466 


P00403 






39300 




BR 


5* 


(RETURN 


1433 


015470 


012737 


177777 


016753 


39400 


4*1 


MOV 


*>1,XFLAG 


(XMIT DONE, SET XMIT FLAG 


1431 


V15476 


142764 


000207 


000002 


39500 


5*1 


BICB 


«207,2(R4) 


(CLEAR DONE 


1435 


015504 


0tt0002 






39600 




RTI 




(RETURN 


1436 










39700 










1437 












(••»•»••••••••*••••••••««•••*«»•*••••*•»••••••»•«*•*•*»»••••••** 


1«39 












> 


SUBROUTINE TO SEND M0P3 


MESSAGE 


1439 












1 ««•«••*«•••*•••••«•••••»••••*«**••••••••»»*•••••*«••••••••••••• 


1440 










39900 










1441 


(:15506 


0155737 


016744 




40000 


HP3I 


TST 


BASEPG 


(IS IT OK TO REQUEST 


1442 


ei55l2 


001775 






40100 




BEQ 


MP3 


(BR IF NO 


1 443 


015514 


H05037 


016744 




40200 




CLR 


BASEFG 


(CLEAR LOCK FLAG 


1444 


P15520 


B»»5037 


016752 




40300 




CLR 


XFLAG 


(CLEAR XMIT FLAG 


1445 


bl5524 


012737 


015614 


016763 


40400 




MOV 


*M0P3f SEL4 


(M0P3 ADDRESS 


1446 


til5532 


012737 


000154 


016764 


40500 




MOV 


|M0P3ED>M0P3,SEL6 (H0P3 COUNT 


1447 


l«1554a 


052714 


000140 




40600 




BIS 


*140»(R4) 


(ASK FOR XMIT BA/CC 


1448 


Ct5544 


005037 


013376 




40700 




CLR 


DELAY 


(START DELAY COUNT 


1 449 


015550 


005737 


016752 




40800 


l*t 


TST 


XFLAG 


(XMIT DONE? 


1450 


•I1SS54 


«010i)4 






40900 




BNE 


2* 


(BR IF YES 


1451 


«»15556 


005337 


013376 




41000 




DEC 


DELAY 


(DEC DELAY COUNT 


1452 


015562 


001372 






41100 




BNE 


It 


(BR IF NO DONE 


1453 


015564 


000000 






41200 




HALT 




(ERROR, M0P3 SEND NOT DONE 


145* 


015566 


104400 


016635 




41300 


3(t 


TYPE 


,0rC0K 


(OK M0P3 SEND DONE 


1455 


015572 


005726 






41400 




TST 


(8P) + 


(POP STACK (ENTERED BY JSR} 


1456 


015574 


f'90000 






41500 




HALT 




(ALL nONE HIT CONT TO DO IT AGAIN 


1457 


B15576 


0^0137 


011 106 




41600 




JMP 


START 




1458 










41700 










1459 


kl5602 


006 


000 


000 


41800 


MOPlI 


.BYTE 


6,0,0,0,0 




1460 


015625 


000 


000 














1461 




015610 






41900 


.EVEN 








1462 


015610 


010 


014 


001 


42000 


H0P2I 


.BYTE 


10,12,rl,0 




1463 


01561 3 


000 
















1464 


riS614 


000 


000 


006 


42100 


MQP3I 


.BYTE 


0f0«6, 0,6,0 




1465 


015617 


000 


006 














1466 










43300 




(IMAGE 


OF PROGRAM TO BE 


DOHN LINE LOADED 


1467 










42300 










1468 


015623 


005037 


000006 




42400 




CLP 


9t6 


(SET UP TIMEOUT VECTOR TO HALT 


1469 


015626 


00*095 






42500 




RESET 




(CLEAR ALLtl 


147a 


015630 


012706 


001000 




42600 




MOV 


11000, SP 


(SET UP STACK 


1471 


•15634 


0t27«l 


177560 




42700 




MOV 


1177560, PI 


(SET TTY CSR 


1472 


• !5t.40 


«•! Ii7«i0 






47Raa 






PC,S0 


iHAKE ADCPFSS ?IC 
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M7! 
1 «74 
1475 
:476 
1477 
1478 
I 47fl 
1480 
1491 
1462 
14S3 
1484 
14SS 
1486 
1487 
1468 
1484 
149« 
1491 
1492 
149) 
1 494 
1495 
149e 
1497 
1499 
1499 
ISiak) 

i«ai 

1503 
1504 
15b5 

1509 
1509 
1S10 
1511 
1512 
15S3 
1514 
1515 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1523 



i<t5642 
''1564b 
lrlbfc52 

?!5fc5t 
lltbfibia 
1*15662 
H1567? 
015074 
B15676 
Pl57a4 
1^15712 
»13720 
ijl572b 
B15734 
015742 
IS15750 
^15756 
»1S764 
(•15767 
<HS77a 



Bl577t) 
015774 
K16000 
016002 
flt601v» 
816016 
016024 
016026 
016030 
ril6032 
ei6036 



i}627p^ 
1H5761 

1 1 J!?6l 
9*!1 372 
(•12737 
905P37 
01007 77 
ir .16112 
l»«fc440 
042^07 
g5ia4« 
1)42526 
041503 
e*6l25 
{■42140 
»20106 
020441 
006 



n2e37 

112037 
000406 
112737 
112737 
112737 
010346 
010446 
010^16 
1 13704 
005404 



000(434 
000004 



000026 
000026 

047502 
051505 
053440 
041585 
020104 
851505 
054514 
042116 
042524 
000 



016175 
016173 

000001 
000006 
000005 



016175 

0000^6 



052U7 
040523 
051501 
044505 
052523 
043123 
026440 
047440 
052123 



016173 
016175 

016172 



42900 
430(»i» 
43100 
43200 
43300 
43400 
43900 
43600 
43700 



43600 
43900 
44000 
44100 
44200 
44300 
44400 
44500 
44600 
44700 
44800 
44900 
450^0 
45100 
45200 
45300 
45400 
4S500 
45600 
49700 
45800 
45900 
46000 
46100 
46200 
46300 
46400 
46500 
46600 
46700 
46800 
46900 
47000 
47100 
47200 
47300 
47400 
47583 



4CPi) 
18 

(P0)4'«b([<n 
It 

«26>S*24 
?»2b 



(ADDRESS OF MFS5&GE 
jPEAOy 3F-? 
JBR ir NO 
jTiPE A CHABACUR 
JKEEP TYPING ir NOT ZERO 
I SET UP pOtnEB FA lb VECTOR 
jKAKE SURE T BIT CLEAP 



ADD 
TSTB 

bPL 

MOVB 
PNE 
MOV 
CliR 

SB i jSp 

.ASCIZ <12><15>/B00T MESSAGE WAS RECEIVED SUCCESSf ULLSf • END OF TESTll/ 



.BYTE 



H0P3EDI 
.EVEN 



I ••••••»#»•#•••••##•###•#•••»»••#•#•#••##•####♦••» 

jBINABy TO OCTA*' (ASCII) AND TYPE 

||B20CT»«ENTER HEBE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 
jCALLI 

NUM,«(SP) iNUMBEB TO BE TYPED 

P0,IB2OCT iCAl-L FOB TYPEOUT 

N |N«1 TO 6 FOB NUMBER OF DIGITS TO TYPE 

M |H3l OR 

)1«TYPE LEADING EEBOS 
;0aSUPPBESS LEADING ZEBUS 



HOV 
JSR 
.BYTE 
.BYTE 



JIB201—-CNTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST SB50CT OB 
(CALLt 

I MOV NUM>«(SP} 

I JSR R0,IB2O1 

!»ej0l6— ENTER HERE FOB TYPEOUT OF A J6 BIT NUMBER 
iCALLi 

, MOV NUM,-CSP3 

I JSR R0,IB2O16 



IB20CTI MOVB 
MOVB 
BR 

|B20l6i HOVB 
MOVB 

182011 HOVB 

HOV 

MOV 

MOV 

MOVB 

NEC 

ADD 



(R0)+ilOMODE+l 

(R0)'«',«0FILL 

»B20l 

tl,»0FILL 

l6,tOMODB+l 

»5,«0CNT 

R4,-CSP) 
R5,-C8P) 
|0M0DE+1,R4 
R4 

»S,-R4 



JPICKUP THE NUMBER OF DIGITS TO TYPE 
jGET THE ZERO FILL SWITCH 

|SET THE ZERO FILL Si«ITCH 

iSET FOB S1X(6} DIGITS 

|5ET THE ITERATION COUNT 
jSAVE R3 
iSAVE R4 
(SAVE R5 

|GET THE NUMBER OF DIGITS 10 TYPE 
iSUBTpACT IT FOB MAX, ALLOWED 
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1529 


016044 


1 10437 


016174 




47600 




MOVB 


1530 


P16050 


113704 


016173 




47700 




MOVB 


1^31 


B16054 


0te>b0S 


000010 




47800 




MOV 


1532 


S11606'* 


00500) 






47900 




CLP 


1533 


i>16062 


0i'6le5 






48000 


1*1 


BOL 


1534 


K16064 


000404 






46100 




BR 


1535 


416066 


(•0bl05 






48200 


3SI 


ROL 


1536 


016«I70 


006105 






48300 




POL 


153T 


t»i6072 


»0biCi5 






4S400 






1538 


(•16074 


010503 






48500 




HOV 


1539 


016076 


006103 






43600 


3tl 


ROL 


1543 


£•16100 


105)37 


016174 




46700 




DECB 


1541 


kl6104 


1B001O 






48600 




BPL 


1542 


f'16106 


042703 


177770 




48900 




BIC 


1543 


H16112 


001002 






49000 




BNE 


1544 


til6iH 


005704 






49100 




TST 


1545 


li;16116 


0^1403 






49200 




BEQ 


1546 


016120 


i;i«S204 






49300 


481 


INC 


1547 


016122 


052703 


000060 




49400 




BIS 


1548 


016126 


P52703 


000040 




49S00 


Stt 


BIS 


1549 


t»16l32 


1 10)37 


016170 




49600 




HOVB 


1550 


016136 


104400 


016170 




49700 




TYPE 


1551 


>;16142 


105)37 


016172 




49800 


711 


DECB 


1552 


916146 


093)47 






49900 




BCT 


155) 


P16190 


002402 






50000 




BLT 


15S4 


L'16152 


005204 






50100 




INC 


1555 


016154 


^00744 






90200 




BR 


1556 


316156 


0l2be5 






50300 


6«t 


MOV 


1557 


016160 


012604 






S0400 




MOV 


1556 


016162 


012603 






50500 




HOV 


1599 


k)16164 


012616 






50600 




HOV 


1960 


016166 


^00200 






90700 




RTS 


1961 


016170 


000 






50S00 


81: 


.BYTE 


1562 


C16171 


000 






90900 




.BYTE 


1563 


016172 


000 






51000 


lOCNTi 


.BYTE 


1564 


016173 


000 






51100 


teriLLi 


.BYTE 


1565 


016174 


000000 






91200 


tOMODEi 





1566 










91300 






1567 










51400 






1566 


•16176 


fil2737 


177777 


016742 


51500 


CKBASEt 


MOV 


1569 


016204 


005037 


016744 




S1600 




CLR 


1570 


016210 


052714 


000146 




51700 




BIS 


1571 


916214 


005737 


016744 




51800 


Iti 


TST 


1572 


W16220 


P«1775 






51900 




BCQ 


157) 


016222 


P12714 


040000 




93000 




HOV 


1574 


016226 


005714 






52100 


2tl 


TST 


1575 


016230 


100376 






53200 




BPL 


1576 


016232 


005037 


016744 




92300 




CLR 


1577 


1116236 


B52714 


000143 




52400 




BIS 


1578 


016242 


005737 


016744 




93500 


311 


TST 


1579 


016246 


001775 






52600 




BEQ 


1560 


016290 


012764 


000100 


0»0002 


92700 




MOV 


1561 


ei6296 


0115037 


016742 




52600 




CLR 


1582 


*16262 


012702 


000003 




93900 




MOV 


1583 


11)16266 


005001 






9 30(*0 




CLR 


1584 


£•16270 


176261 


016776 


016766 


53100 


5Si 


CMPB 



33 PAGEI 0032 



R4,I0M0DE J SAVE IT FOR USE 

»aFlLL,R4 iGET THE ZERO FILL SWITCH 

10(SP),R5 (PICKUP THE INPUT NUMBER 

R3 jCLEAp THE OUTPUT WORD 

B5 iROTATE MSB INTO "C" 

31 |G0 00 MSB 

B5 jFORM THIS DIGIT 

R9 

RS 

R5,B3 

B3 jGET LSB OF THIS DIGIT 

IOMODE iTYPE this DIGIT? 

71 |BB IF NO 

1177770. R3 jCET pIO OF JUNK 

4t (TEST FOR 

B4 {SUPPRESS THIS 07 

51 |BB IF YES 

R4 , DON'T SUPPRESS ANYHOPE 0'S 

|»0,R3 iHAKE THIS DIGIT ASCII 

!• ,R3 |MAKE ASCII IF NOT ALREADY 

R3,ei jSAVE FOP TYPING 

,61 jOO TYPE THIS DIGIT 

lOCHT jCOUNT BY 1 

2i iBR IF MORE TO DO 

6$ . |BR IF DONE 

R4 I INSURE LAST DIGIT ISN'T A BLANK 

2( |G0 00 THE LAST DIGIT 

(SP)+rR9 (RESTORE R5 

(SP}««R4 (RESTORE R4 

(SP}t(R} (RESTORE R3 

(5P)+,(5P) (SET THE STACK FOR RETURNING 

R0 (RETURN 

e (STORAGE FOR ASCII DIGIT 

(TERMINATOR FOR TYPE ROUTINE 

(OCTAL DIGIT COUNTER 

(ZERO FILL SMITCH 

(NUMBER OF DIGITS TO TYPE 



f"l»BE8UHE ObT KtSUnE rLA« 

BASEFG (CLEAR BASEFG 

1146, (R4) (SHUT DOWN DHC TO UPDATE BASE TABLE 

BASEFG (SHUT DOWN DONE? 

11 (BR IF NO 

»BIT14»(R4) (MASTER CLEAR DMC 

(R4) 7RUN SETT 

26 >BR IF NO 

BASEFG (CLEAR BASEFG 

tl43,(R4} (ASK FOB BASE REQUEST 

BASEFC (BASE LOADED? 

3« (BR IF NO 

»100»2(R4) (SET INTERRUPT ENABLE 

RESUME (CLEAR RESUME FLAG 

13, R2 (LOAD BASE OFFSET TO ERROR COUNTS 

Rl (PI IS OFFSET INTO SOFTWARE TABLE 



BAsE(R2)|EPRCNT(Pn(ANY ERRORS THIS PASS? 
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1595 


P16276 


i'aH)05 












68 ! BR IF YfS 


1 586 


»1630«' 


172122 






53300 




rMD^ 




1587 


ei6302 


r.72782 


0(^001 3 




534(^0 








1588 


P163k<0 


Bi'l 3 7i' 






53500 








1509 


bl63ia 


(»l!>020 7 






5360(^ 




OT« 


PC f RETURN 


1 590 


C91 631 2 


1 ()440<) 


016437 




, 53700 


6 S 1 


TVOF 


. cnFT •TVDr COPT CDnoo Mrcc&rtc 

rOU*l f lire, ovFi E'KP'^H >*1C<OOAUIL 


1591 


"16316 


1*1 2702 


00000 3 








unv 


t3fR2 jLOAD BASE OFFSET TO ERROR COUNTS 


1592 


0163 22 


fc!^5P^0t 






53900 




CLR 


PI jsoftware Table offset 


1593 


<^16324 




01 67 76 


1 6 ' 66 




7 $ 1 


MOVB 


BAS^ ( R2 } r ERRCNT ( PI ) 1 SAVE ERROR COUNTS 






1 16246 






541 00 




MOVB 


BAsE( R2 ) r *C SP) jPUSH ON STACK FOP TYPEOUT 


1 595 


^16 3 36 


0427 1 6 


Iff 'iVVJ 








BIC 


#*C<377>» tSP) (CLEAR HI«BYTE 


1596 


^16342 


i>04037 


015770 








JSR 


R0#8B2OCT jTYPE IT OUT 


1597 


frl 6 3 46 


003 














1598 


016 347 


Pli) 1 






5 4500 




'byte 




1599 


ff 1 635(9 


1 1^4 4 00 


01 6b62 








TYPE 


#SPACE3 1 INSERT 3 SPACES 


1 6(90 


li) 1 6354 


1 22221 














1601 


Kl 6356 


B32702 


00001 3 




54800 






i 1 J » J uunttj 


1 602 


1 6362 


360 










BNP 


19 J on XT nu 


1 Mi)3 


1^16364 


000207 






55000 




RTS 


HC (KblUKrl 


16B4 










55100 








1605 










55200 








1606 










55300 


.NLIST 


BEX 






*l 6366 


0P5015 


041412 


047 1 17 


55400 


DMCER t 


.ASCII 






016412 


00501 5 


020040 


042523 


55500 




.ASCII 


<15^^12^/ SEL4 SEL6/ 




1SI6433 


015 


020012 


000 


55600 




, ASCIZ 


<15*<12>/ / 




*»1 6437 


015 


0H501 2 


047523 


55700 


SOr T 1 




^ 1 J 1 ^ * / our 1 C(r4|4vK • UULnr tnKwK vwUMlo MKIli wypi fiCKU^ 




01 65 1 6 


0P501 5 


020040 


020040 


55800 




. AoC X I 


<15^^12^/ SASE+3 THRU BA5E+1 2/^15X12^^0^ 




01 6562 


B?0040 


000040 




55900 


SPACES t 


.ASCIZ 






PI 6566 


0050 1 5 


0405 1 5 


052516 


56000 


BOOMSG t 


AsCXZ 


< 1 1 2^/M ANUALL Y BOOT DMC NOw CVIA M9301""YJ)/ 




01 6635 


016742 


047412 


04 4532 


561 00 
5 6 200 
56300 


OPGOKt 

"f TCT 

• 


ASC I Z 


< 1 5><1 2*/0RIGIN ATI NG STATION HAS COMPLETED BOOT SUCCESSFULLY 


1 607 


















1608 


_ 


000000 








I^ESUME t 






1 6(tf9 


m 6744 


p 0B0|ij3 








B ASCFG t 




jBASE LOAD FLAG 


1611? 


01 6746 


000000 








TEMPI 1 






1 bl 1 


(1 6750 


00000W 








TCMP2 1 







1612 


l#16752 


000000 






56900 


XFL AG 1 







1613 


iS 1 6754 


300000 






57000 









1614 


i#l 6756 


(*00000 






57 100 


SFLAGl 







1615 


»16760 


C>00^00 






57200 


HFLAG: 







1616 


916762 


000000 






57300 


SEL4I 







1617 


*16764 


000000 






57400 


SEb6l 







1618 










57500 








1619 


B16766 


000004 






57600 


ERBCNTi 


.BLKN 


4 


1620 










57700 








1621 










S7B00 








1622 


0J6776 


01 7 J7(, 






57900 


BASE! 


.■.t256, 




1623 




000001 






58000 


.END 
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CROSS RrrERENCE 


TABLE 


USER i 


AUTBOO 


514540 


1224 


1384* 


1285 


1291 


1293 




AUTOf>G 


014312 


1222 


1 234* 


1240 








BA 


01 1004 


665* 


726 










BACK 


ei 34ii0 


927* 


856» 


892* 


9B6» 


1017 


1078* 


BASF 


*•! 6776 


75B* 


759* 


760» 


761» 


762» 


1129 


BASEFG 


k.t6744 


745» 


1090 


1092* 


U12 


1114* 


1149# 






1249 


125l» 


1284 


1286* 


1303 


1304» 






1336» 


1 339 


1341* 


1344 


1346» 


1373» 






1576» 


1578 


1609* 








BIT0 » 


»00001 


659* 


1137 


1175 


1375 


1403 




Bill a 


900002 


659« 


932 


957 


964 


1133 


1368 


BIT10 * 


i>02000 


659» 


1145 


1147 


1231 


1333 




BITll « 


S04000 


659* 


1145 










BIT12 ■ 


910000 


659t 


1133 










B1T13 « 


920000 


659t 


694* 


1028 


1055 






BIT14 ■ 


940000 


659* 


734 


1314 


1333 


1573 




BIT15 » 


100000 


659* 












BIT2 • 


000004 


6S9I 


937 


1125 


1143 


1151 


1206 


6IT3 ■ 


000010 


6SS*» 












BIT4 B 


{»00020 


659« 












BIT5 « 


i*00040 


659« 












BIT6 ■ 


000100 


6591 












BIT7 » 


"00200 


659« 












BIT8 ■ 


900400 


659« 


730 


765 








BIT9 ■ 


001000 


659« 


1179 


1231 


1335 






B0QM5G 


016566 


1227 


1606* 










BOOT 


U14254 


767 


1221* 










B2016 


011030 


675* 


1031 










CKB4SE 


016176 


824 


853 


889 


983 


1568* 




DELAY 


013376 


778» 


1015» 


1077* 


1257» 


1360* 


1448* 


DEPP 


013010 


1056 


10651 










DISPLA 


011046 


685* 












DMCEP 


016366 


1190 


1414 


1606* 








DMC 11 


01 1000 


6641 












DSFLG s 


S20000 


6591 


693» 










DS5TAT 


011060 


700* 












ENTFR 


012550 


999 


1008* 










EOP 


012462 


828 


857 


893 


987 


9941 




ERCSR 


«110S4 


698* 


752» 


1188» 


1191 


14i3« 


1415 


EPDBR 


011056 


699* 


753* 


1026 


1189* 


1196 


1203* 


ERRCNT 


016766 


754* 


755* 


756* 


757» 


1584 


1593» 


FLAG 


0U042 


683* 












FULL.D* 


000001 


714* 


934 


959 


966 


1139 




GO 


|!I11404 


777* 












IISP 


015126 


732 


1368* 










ILB ■ 


000010 


659* 


786 










IPOA 


011020 


671* 


896 


1035 


1058 


1154 


1271 


IXDA 


011032 


672* 


735 


897 


1034 


1063 


1064 


KBDIN a 


104416 


659* 


808 


840 


873 


931 




LOOP ■ 


000030 


659* 


825 


854 


890 


984 




HANOPG 


014604 


1226 


1300* 










MFLAG 


016760 


1287* 


1290 


1300* 


1331 


1406* 


1615* 


HOPl 


015602 


1 234 


1253 


1459* 








HOP! 


015610 


1270 


1354 


1462* 








«0P3 


015614 


1445 


1446 


1464* 








MPPJED 


0! 577R 


1446 


1492* 











1370 
1157» 
1307 
1379* 



1584 
1164» 
1309* 
1386* 



1593 
1182* 
1318* 
I39l» 



1594 
1239 
1321 
1441 



1622* 
1241* 
1323* 
1443» 



PAGE) 0P34 



1244 1246* 
1326 1326* 
1569« 1571 



1381 



1439 



1413» 
1619* 



1355 
1161 



1420 



1383 



1427» 
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C^OSS PEFEPENCE 


TABIiE USFR i 


MP3 


C I S S 6 


1 279 


1 362 


1 4 4 1 * 


14 42 




HSG 


)f 1 5 b 7 b 


1 473 


1 481 « 








MSGss 


01 3l?2 2 


1630 


1071* 








MSGi 




1033 


!f!7l» 










^13106 


10^7 


1071 » 








HSG J 


111 3 1 3 3 


1061 


1071* 












1 07 1 * 


1087 








MSGS 


Hi 3310 


10711 


1108 








NODAT • 




6590 


820 


SS5 


9S0 






*1 531 2 


7 33 


1 402 * 












1454 


1 606 * 








^W^"^ s 






793 








OWO ■ 




659# 


790 








PARAH i 


011312 


6681 


73|j 


765 


1221 


1233 1325 


PARAW2 


• 1 1 PI 4 


669* 


932 


9 34 


937 


957 959 


PABAM 3 


l^t 1(116 


6701 










PP I OR 


t ' t I itf 1 


6671 


723 


725 






PPTY0 B 




659* 










PPTYl ■ 


ftidlJ04*fl 


659* 










PRTYJ » 


t$d01 00 


659* 










PPTY3 ■ 


ffitfol 40 


6591 










PRTY4 » 


^it}020t) 


659* 










PPTS5 « 




659* 










Bol^t " 


30x) 


659* 












3 4 !rf 


659* 


995 








QTPIE 


01 3620 


996# 


997» 


1016 


1018* 




RCC 


151 1 d70 


705* 










RD A 


HI 1072 


706* 










RDAX 


PI ^T?!' 


lase* 


1060* 










?! fc74 2 


764* 


1131 


' • 77 


4 ■£&# 


miSl- 1608* 




tftl 6754 


746» 


1110 


1116* 


1247* 


125! 1388* 




#4i$000 


692* 


810 


823 


876 


888 941 


RI SR 


el 4032 


722 


729 








Rl V 


91 1 006 


666* 


721 


727 






RWAIT • 




659* 










RXWC 


<*1 1«>64 


70J* 


742* 


1155 






RX ( TER 


f'l 1041 


681* 












913362 


1000* 


1009 


1 07 1 * 








» i5* 


1001* 


1010 


1072* 








01 336t> 


1002* 


1011 


1073* 






SAVP^ 




1»03» 


1012 


1 074# 






SA VR4 


B-l 3372 


1004* 


1013 


1075* 






sr In* 


1 3 37 4 


1005* 


1014 


1076* 








01 2666 


1036* 


10J7 


1050 


1053 




SCANS 


01274? 


1054* 














1253» 


1388 


1445* 


1616* 




SFX6 


(1(6764 


1242» 


1254* 


1305» 


1 324* 


1342* 1377 


SFTTLE 


ell024 


673* 










SFLAG 


*«16756 


13?1» 


1312 


1317» 


1410* 


1614* 


SOFT 


»164J7 


1590 


1606* 








SPACES 


016562 


1195 


1419 


1599 


1606* 




SPCSP 


KllttSi 


697* 










STAUT 


tfll 1^6 


678 


718* 


1457 






STARIR 


013474 


809 


874 


936 


963 


1106* 


STABIX 


013404 


841 


906 


944 


less* 




STOP 




779* 


I079i 


i0S3 


1085* 


ii06 ii09« 



1235 
964 



1336 
966 



1337 
1139 



123S 
1143 



1392 
948 



1310* 
978 



1329* 
1153 



1347* 
1208 



1349 



1431* 1613* 



1389 



1446* 1617* 
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PACE) 0036 



STPS s 104414 
SMR 011044 



SW12 « 

SXC5R 

TEMPI 

TFMP2 

TFSTD 

TESTDX 

TIE « 

TIME 

TKB 
TKS 
TPB 
TPS 

TSTDAT 
TXWC 
TX.TER 
TYPE ■ 

XCC ■ 

XCSR « 

XDA 

XFLAG 

XFLG » 

XISR 

XLB s 

XWAIT ■ 

$B20CT 

«B20l 

IB2016 

tILB 

lOCNT 

iomodf; 
towi 

lOHO 

IXLB 



l»10000 
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